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Niektórzy Czytelnicy mieli mi za złe niewcze- 
sny entuzjazm, z którym w pierwszym numerze 
„InforMika” stwierdzałem koniunkturę dla 
know-how. Wydaje się jednak, że przynajmniej 
częściowo miałem rację, gdyż dziś prestiż zawo- 
dów „komputerowych ”” rośnie powoli, ale wyraź- 
nie. Osiągnęliśmy już nawet stan, w którym praca 
dobrego programisty jest honorowana wyżej niż 
boiskowe wysiłki drugoligowego kopacza piłki, 
zwanego u nas kurtuazyjnie piłkarzem. Sytuacja 
taka zachodzi zwłaszcza wtedy, gdy programista 
jest zatrudniony w firmie prywatnej, gdyż tam 
bez wytycznych, wskaźników, tabel, metod nor- 
mowania pracy itd. udaje się jednak na ogół dość 
wymiernie powiązać pensję z osobistą efektyw- 
nością. Mówię celowo: efektywnością a nie pra- 
cowitością, gdyż osobiście nie uważam pracowi- 
tości za zaletę samą w sobie. Co innego, gdy 
przynosi ona oczekiwane efekty, uwaga: nie 
efekty, ale właśnie oczekiwane efekty. Cóż, przy- 
wykliśmy fetyszyzować pracę, rozumianą jako 
szlachetną okazję do urobienia sobie rąk po 
łokcie, nie zaś jako konieczny wprawdzie, ale 
niekoniecznie kochany środek osiągania pew- 
nych celów praktycznych. Mówić w tym kon- 
tekście o wynikach toć to przecież zniewaga! 

Obserwując burzliwy rozwój firm prywatnych 
łatwo zauważyć jednak pewne niezbyt budujące 
zjawisko, a mianowicie wyczerpywanie się natu- 
ralnych zasobów odpowiedniej kadry. Pierwsze 
firmy mogły wybierać personel niczym ulęgałki, 
wykupując najwartościowsze jednostki z firm 
państwowych. Następne i mniej zasobne firmy 
prywatne miały już gorszy wybór, i oto jego 
efekty. Wchodzę do pomieszczenia pewnej spółki 
z 0.0., szumnie nazwanego biurem techniczno- 
-handlowym. Wystrój wnętrza? Ho, ho! Na pół- 
kach okazale prezentują się komputery, drukar- 
ki, monitory, kalkulatory. Przejdźmy jednak do 
konkretów. Pan prezes? Nie ma. Pani kiero- 
wniczka? Dokądś wyszła. Pani księgowa? Będzie 


później. Pan Stasio, spec od komputerów? Chyba 
chory, ale nie wiadomo na pewno. Na stanowisku 
dzielnie trwa tylko „zrobiona” na lalę pani 
sekretarka, a w kącie zza gazety wystaje jeszcze 
twarz pana Tadka, pałaszującego bułkę z cebulą. 
Konkurencja nie jest jeszcze dość silna, aby takie 
firmy odpadały w przedbiegach, plajtując i robiąc 
miejsce innym, lepszym. 

Nowo wprowadzone ułatwienia w tworzeniu 
firm oznaczają obniżenie poprzeczki energii i de- 
terminacji, potrzebnej do założenia firmy. Ta 
sama energia i determinacja jest jednak niezbęd- 
na także do porządnego prowadzenia firmy na 
dłuższą metę. W firmach prywatnych pracują ci 
sami ludzie, którzy do niedawna robili „na 
państwowym”. Ich szefowie, świeżo upieczeni 
przedsiębiorcy, także rekrutują się z byłych pra- 
cowników tego sektora. Czy można mówić o wy- 
chowywaniu personelu? Wychowanie opiera się 
na pewnych tradycjach. Tradycje te trzeba nie- 
stety tworzyć prawie od podstaw. 

Państwowy sektor gospodarki jest niedosko- 
nały, wiemy o tym, ale sektor prywatny także ma 
swe słabości, z tym, że często zlokalizowane na 
przeciwnym biegunie. Dobrą okazję do zaobser- 
wowania tego zjawiska dały dwie imprezy infor- 
matyczne o profilu targowym, które odbyły się 
w Katowicach pod koniec roku 1988 w dwu- 
miesięcznym zaledwie odstępie: Softarg '88 i In- 
formacja '88. 

Na organizowanym przez cieszący się pres- 
tiżemi Ośrodek Postępu Technicznego Softargu 
zjawiła się większość liczących się w Polsce firm 
komputerowych, w tym wszyscy wielcy poten- 
taci, a impreza była zorganizowana w sposób 
profesjonalny. Strona marketingowa była nato- 
miast totalną klapą. Słabo i niemrawo reklamo- 
wana impreza miała kiepską frekwencję. Nie 
można tego powiedzieć o Informacji *88. Wręcz 
przeciwnie. Gromkie bicie w tam-tamy rozlegało 
się już na długo przed imprezą, w prasie pojawia- 
ły się regularne ogłoszenia, ba, o imprezie infor- 
mowało nawet radio i popularny Teleexpress. 
W praktyce impreza reklamowana jako między- 
narodowe targi okazała się głównie kiermaszem 
pośredników o dość lokalnym zasięgu. Irytująca 
była organizacja i merytoryczna nieporadność 
organizatora, w której to roli wystąpiła katowic- 
ka firma PRO-INFO, który nie zdołał np. zmon- 
tować sprawnie działającego biura informacyj- 


nego. Poważniejsza próba dowiedzenia się tam 
czegokolwiek wywoływała konsternację uloko- 
wanych w biurze panienek i gorączkowe (albo 
i nie) poszukiwania kogoś, kto ewentualnie mógł- 
by coś wiedzieć. Brakowało katalogu targowego, 
a w folderze, który stanowił jego namiastkę 
brakowało zarówno części uczestniczących firm, 
jak i występowały firmy nie biorące udziału 
w targach. Wyraźnie brakowało firm nadających 
ton na rynku, jak np. InterAms lub CSK. Nigwy- 
kluczone, że przyczyną tego była dość szczególna 
opinia organizatora, będącego spadkobiercą 
osławionego studia „JACKIE”. Spadkobierca 
okazał się godny wspaniałych tradycji, czego 
dowodzi następujący incydent. Oto z megafonów 
sączy się słodki głos spikera, zapewniającego, iż 
PRO-INFO sprzedaje wyłącznie własne opraco- 
wania itd. Kilka kroków dalej, na stoisku, PRO- 
-INFO jak gdyby nigdy nic rozdaje ulotki, w któ- 
rych podaje za własne opracowania stworzone 
przez kogo innego i to bynajmniej nie dla niej 
oraz sprzedaje kopie cudzych opracowań litera- 
turowych, naturalnie bez zgody ich autora. Inny, 
typowo europejski akcent: ogłoszono konkurs na 
program i ufundowano nagrody. Warunkiem 
zgłoszenia do konkursu była jednak opłata w wy- 
sokości 50 tys. zł, a próby dowiedzenia się czegoś 
bliższego o komisji konkursowej itd. prowadziły 
tylko do straty czasu. Posądzenie organizatora 
o zupełną nieudolność byłoby jednak krzyw- 
dzące, gdyż były przykłady sprawności. Jednym 
z nich było kasowanie należności za bilety. 

Odbudowanie etosu pracy i stworzenie pew- 
nego pozytywnego, obowiązującego standardu 
działania firm informatycznych jest niestety za- 
daniem na lata. Ostra, naturalna selekcja ryn- 
kowa będzie możliwa dopiero wtedy, gdy zarów- 
no poważne firmy, jak i ich klienci należycie 
opanują swoje role i wyuczą się właściwych 
reakcji oraz instynktownego odróżniania ziarna 
od plew. Jednym słowem, musi ukształtować się 
pewna kultura. Zanim to nastąpi, rynek kom- 
puterowy będzie rajem dla agresywnych naciąga- 
czy, wydrwigroszy i hochsztaplerów, kształtują- 
cych swój obraz nie za pomocą merytorycznych 
osiągnięć, ale przez natarczywą, często pomy- 
słową i zakrojoną z rozmachem, ale przeważnie 
fałszywą reklamę. 


Roland Wacławek 
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Lubimy je, nawet bardzo... no, może nie wszyscy i nie z tych samych 
powodów, ale lubimy. Nastolatki, bo jest pretekst do urwania się ze szkoły 
i poszalenia w efektownym, choć płytkim bajorku wymieszanej nowoczesnej 
techniki, komercji i pseudozachodniego blichtru. No i te prospekty... 
Przedstawiciele różnych firm, bo można poszwendać się poza biurem bez 
nudnego dłubania w dokumentach i wysłuchiwania połajanek ,,z góry” za 
niską efektywność poczynań, no a gdyby udało się jeszcze coś sprzedać... 
Specjaliści rozmaitych zakładów lubią wystawy z przyczyn podobnych, ale 
nie dokładnie takich samych. A z kolei rozmaitego autoramentu żurnaliści 
lubią wystawy, bo jest gdzie zarobić parę groszy na reportażyku, wypić 
kawkę lub koniaczek na poczet kosztów reprezentacyjnych jakiejś firmy, 
a może nawet dostać parę reklamowych „wziątków ”... 


Nie cierpię wystaw!!! Czasem odnoszę wrażenie, że niektórzy organizato- 
rzy iwystawcy — zwłaszcza w branży komputerowej — uważają zwiedzają- 
cych za półgłówków, a to obraża moje (zapewne zbyt wygórowane!) 
poczucie własnej wartości, opierające się głównie na zdolności w miarę 
logicznego myślenia, bo za fachowca to ja się raczej nie uważam. Otóż 
sprytni spece od marketingu uważają zapewne, iż i tak 99 procent 
zwiedzających nic z tego co widzi nie rozumie. Oczywiście takiemu plebsowi 
wystarczy kilka kolorowych migających planszy, efektowny screen na 
monitorach i urocze młode damy na stoiskach... 


Interesujące jest też zachowanie obsługi stoisk w czasie wystaw. Te 
słabsze firmy reklamują się hasłem niemal: „Tylko my iIBMY". Z kolei ci 
najlepsi albo nie interesują się prawie nikim, bo wiadomo, że Polaków na 
najlepszy (a więc i najdroższy) sprzęt nie stać, albo po prostu — jak to się 
ładnie pisze — zaznaczają swoją obecność na naszym rynku poprzez 
reklamę wizualną, a stoisko zamykają na klucz i idą w odwiedziny do innych 
zaprzyjaźnionych firm. 


A najgorzej to jak na wystawę przyjdzie zblazowany fachowiec niezłej 
klasy w towarzystwie dociekliwego żurnalisty o kompleksie tropiciela 
autentycznych nowości, a nie „farbowanych lisów” wożonych z jednej 
komputerowej wystawy na drugą. Ci to dopiero narozrabiają! Do zam- 
kniętych wrót dobrych firm walą z pianą na ustach, a po co? Nie dość, że to 
zwraca uwagę (są to więc osobnicy niedelikatni!), to jeszcze i tak nic nie 
kupią i zawracają handlowcom głowę pytaniami technicznymi. Skandal! 
W gorszych firmach też się takich nie znosi! Przyjdzie jeden z drugim 
i zacznie wydziwiać, a i niejeden wstydliwy szczegół publicznie (cham 


jeden!) ujawni, a na podtykane skwapliwie reklamowe długopisy, zapalni- 


czki czy torby nawet nie spojrzy. Nie chce nawet koniaczku, a i zaproszenie 
na puchatkowe „,co nieco” też (prostak!) zignoruje. Po prostu swołocz!!! 


Nie lubię wystaw... Nie pożywi się tu ktoś, dla kogo najważniejsza jest 
rzetelna, fachowa, szybka informacja techniczna. A już łowca nowości może 
sobie nasze wystawy spokojnie darować, zwłaszcza ich część sprzętową. 
Taki komputerowy polski McDonald nie wabi mnie. Może dlatego, że nie 
lubię też hamburgerów? 


JERZY KLAWIŃSKI 
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ZASADY EDYCJI 
| ORGANIZACJI EKRANÓW 


W serii kilku artykułów planujemy przedstawić pod- 
tawy wykorzystania systemu MSX. Skoncentrujemy się 
głównie na języku MSX-BASIC i wykorzystaniu pod- 
stawowych systemów operacyjnych. 

Kilka znanych firm japońskich w porozumieniu z firmą 
software ową MICROSOFT opracowało wspólny stan- 
dard mikrokomputera. Na uwagę zasługuje opracowanie 
rozbudowanej wersji języka zwanej MSX-BASIC (Mic- 
roSoft eXtended basic). MSX gwarantuje pełną wymie- 
nialność oprogramowania między komputerami różnych 
firm. Stąd konieczność standaryzacji podstawowych ele- 
mentów konstrukcji. Zdecydowano się na mikroprocesor 
Z80, kontroler graficzny Texas Instruments TI 9918A 
i układ generowania dźwięku General Instruments 
AY-3-8910. 


CHARAKTERYSTYKA KOMPUTERÓW 
SYSTEMU MSX 


Jak wspomniano wyżej firmy japońskie oraz zachod- 
nioeuropejskie wprowadziły lub wprowadzają cały szereg 
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EDWARD KRAWCZYŃSKI 
ROMAN KULA 


komputerów systemu MSX lub MSX-2. W Polsce pierw- 
szymi komputerami tego systemu sprowadzanymi po- 
wszechnie były i są „SPECTRAVIDEO 738" oraz „„PA- 
NASONIC 2700”. W naszych rozważaniach skoncen- 
trujemy się głównie na pierwszym z nich, sprowadzanym 
przez CSH za pośrednictwem firmy „„PROSYSTEM- 
-VIENNA". 
Jednostka centralna komputera MSX zawiera proce- 
sor Z80. Posiada pamięć dynamiczną RAM powyżej 64 
kB, VRAM 16 kB zaś ROM minimum 32 kB. 
Do standardowych gniazd komputera MSX należą: 
— złącze szeregowe RS232 z możliwością programowa- 
nia szybkości transmisji, możliwością podłączenia 
modemów itp., 

— złącze równoległe drukarki systemu MSX, 

— złącze dodatkowej stacji dysków, 

— gniazda audio-, video- i TV, 

— gniazdo magnetofonu, 

— gniazda manipulatorów. 

Dodatkowym złączem jest pięćdziesięciostykowe gnia- 
zdo rozszerzające ROM, podobnie jak w znanym „„ATA- 


RI 800XL” i pośrednio „„AMSTRAD-SCHNEIDER 

CPC464'. Złącze to pozwala na zastosowanie dodat- 

kowych kart umożliwiających: 

— rozszerzenie pamięci RAM, 

— łączenie i komunikację komputerów w sieci lokalnej, 

— wykorzystywanie oprogramowania zawartego w ka- 
setach typu cartridge. 

Klawiatura komputera MSX zawiera od 70 do 80 
klawiszy w tym: klawisze alfanumeryczne, klawisze ruchu 
kursora, klawisze funkcyjne i klawisze specjalne. 

Układ znaków na klawiaturze jak w maszynie do 
pisania. Klawisze alfanumeryczne umożliwiają wygene- 
rowanie małych liter alfabetu łacińskiego i cyfr, a wraz 
z SHIFT lub CAPS LOCK dużych liter oraz znaków 
takich jak: %, $, —, + itp. W kolejnych trybach pracy 
klawiatury (GRAPH, SHIFT+GRAPH, CODE 
SHIFT + CODE) osiągalne są: znaki alfabetu greckiego; 
szczególne znaki alfabetów niemieckiego i hiszpańskiego; 
pospolite znaki stosowane w matematyce, muzyce, che- 
mii, a także grach karcianych i szereg znaków geome- 
trycznych i graficznych. Klawisze kierunkowe umożli- 
wiają ruch kursora w czterech podstawowych kierun- 
kach, a także pod kątem 45”, np. lewo-góra. Klawisze 
funkcyjne pozwalają jednym naciśnięciem wprowadzić 
całą instrukcję lub po ich przedefiniowaniu dowolnego 
zestawu o długości do 15 znaków. Klawisze specjalne 
umożliwiają sterowanie przebiegiem programu i edycją 
ekranową. Ę 

Komputer MSX może pracować w 3—4 trybach 
ekranowych: 

— tekstowych; 40 x 24 znaki, 32 x 24 znaki lub 80 x 24 
znaki, 

— graficznych; wysokiej rozdzielczości 256 x 192 punk- 
ty; obniżonej rozdzielczości 64 x 48 pól. 

W trybie graficznym możliwe jest definiowanie do 32 

obiektów graficznych (ang. sprites) o rozmiarze 8 x 8 lub 

16x16 punktów oraz wielkości normalnej i powięk- 

szonej. 

Dźwięk generowany przez komputer może mieć trzy 
niezależne kanały o zakresie do 8 oktaw. 

Komputer posiada wewnętrzną stację dysków obsługi- 
waną przez system MSX-DOS zajmujący razem z MSX 
DISC BASIC 16 kB. Daje to możliwość przechowywania 
programów jak i danych. Możliwe jest również korzys- 
tanie z bogatego oprogramowania pracującego pod kon- 
trolą systemu CP/M (oczywiście po wprowadzeniu sys- 
temu operacyjnego). 


EDYCJA I JEJ ZLECENIA 


System MSX umożliwia stosowanie tzw. edytora peł- 
noekranowego, co oznacza, że możliwe jest dokonanie 
zmian w treści dowolnej linii programowej zawartej 
w obrębie ekranu bez konieczności odwoływania się do jej 
treści jak jest to np. w ZX Spectrum. Edytor umożliwia 
poruszanie kursorem w obrębie ekranu w sposób ciągły 
i skokowy, kasowanie znaku, linii, części linii oraz całego 
ekranu, a także dopisywanie znaków wewnątrz, na 
początku i końcu linii. Daje to możliwość bardzo szybkiej 
interwencji w program jednak pod warunkiem poznania 
dość szerokich możliwości edytora. Wykorzystuje on 
w tym celu zarówno klawisze specjalne jak również 
kombinację klawiszy specjalnych i alfanumerycznych. 
Powyższe możliwości zostały przedstawione w tabeli I. 


TABELA | 


Kombinacja 


klawiszy Wykonywana operacja 


CLS/HM przesuwa kursor na pozycję początkową 

CLS/HM + SHIFT jw. dodatkowo oczyszcza ekran 

STOP - wstrzymuje bieg programu w BASIC-u do 

następnego użycia klawisza STOP 

wstrzymuje bezwarunkowo bieg progra- 

mu 

DEL kasuje znak znajdujący się pod kurso- 
rem 

— przesuwa kursor w lewo kasując znaki 

> przesuwa kursor o 5 znaków w prawo 

kasując je 

pozwala wstawiać znaki wewnątrz ist- 

niejącego tekstu aż do powtórnego uży- 

cia 

przesuwa kursor na początek pierwsze- 

go słowa 

przerywa instrukcję INPUT 

kasuje znaki do końca linii 

przesuwa kursor na początek następ- 

nego słowa 

generuje dźwięk (BELL) 

odpowiada klawiszowi specjalnemu 

dokonuje tabularyzacji co 8 znaków 

dokłada linię 

równoważne CLS/HM 

oczyszcza ekran; równoważne CLS 

równoważne ENTER 

przesuwa kursor w prawo do końca linii 

równoważne INS 

kasuje linię z kursorem 

kursor w prawo 

kursor w lewo 

kursor w górę 

kursor w dół 


STOP + CTRL 





CTRL+B 


CTRL+C 
CTRL+E 
CTRL+F 


CTRL+G 
CTRL+H 
CTRL+1 
CTRL+J 
CTRL+K 
CTRL+L 
CTRL+M 
CTRL+N 
CTRL+R 
CTRL+U 
CTRL+ 4 
CTRL+] 
CTRL+ A 
CTRL+-— 





INFORMACJE OGÓLNE DOTYCZĄCE JĘZYKA 


MSX BASIC powstały przez rozszerzenie wersji 4.5 
BASIC-a posiada ogólne założenia zbieżne z GW-BASIC 
i GWH stworzonym na IBM-PC. 

Zawiera on 163 instrukcje i funkcje zastrzeżone. Ich 
nazwy nie mogą być używane jako nazwy zmiennych. 
Komputer może pracować w trybie bezpośrednim jak 
i programowym. Linia programowa musi posiadać swój 
indywidualny numer z zakresu 0—65529, a następnie 
jedną lub więcej instrukcji języka BASIC o gramatyce 
zgodnej z zasadami tego języka, oddzielone dwukrop- 
kiem oraz zakończone (ENTER). Pojedyncza linia pro- 
gramowa może zawierać do 255 znaków. Warto wiedzieć 
że edycja w obrębie istniejącego programu lub dopisanie 
kolejnej linii powoduje wyzerowanie zmiennych pro- 
gramowych. 

MSX BASIC pracuje wykorzystując do operacji 
arytmetycznych system dziesiętny kodowany dwójkowo. 
Możliwa jest praca komputera z podwójną precyzją 
obliczeń (14 cyfr znaczących) lub pojedynczą precyzją 
(6 cyfr znaczących) z wykorzystaniem stałych zmien- 
noprzecinkowy _h z zakresu od (10E—64) do (10E-+63) 
oraz praca ze zmiennymi całkowitymi. Stałe mogą być 
również reprezentowane w systemie dwójkowym (%B), 
ósemkowym (ś:0) i szesnastkowym (8$H). 





Standardowo komputer pracuje z podwójną precyzją 

obliczeń. Programowo można zadeklarować: 
— zmienne całkowite, używając 

DEF INT, co równoważne jest oznaczeniu %, 
— zmienne łańcuchowe, używając 

DEF STR, co równoważne jest oznaczeniu $, 
— zmienne pojedynczej precyzji, używając 

DEF SNG, co równoważne jest oznaczeniu !, 
— zmienne podwójnej precyzji, używając 

DEF DBL, co równoważne jest oznaczeniu +k, 
np. 
jeżeli zadeklarujemy A = 10/3 to 
A% lub DEF INT A będzie równe 3 
A! lub DEF SNG A będzie równe 3.33333 
A+k lub DEF DBL A będzie równe 3.3333333333333 

Należy z kolei pamiętać, że nazwa zmiennej może być 

reprezentowana literą, literami i liczbami lub słowem 
z wyjątkiem zastrzeżonych. Zmienną łańcuchową re- 
prezentuje jedna lub dwie litery i znak $. Warto wiedzieć, 
że deklaracja nazwy zmiennej może być wieloliterowa, ale 
komputer rozróżnia tylko dwa pierwsze znaki (np. zmien- 
ne „„lala” oraz „„lato” są dla niego tożsame). 


EKRANY TEKSTOWE 


Rozwiązanie określonego problemu realizowanego 
przez komputer winno być szybko i przejrzyście przed- 
stawione użytkownikowi. : 

Postać ogólna instrukcji PRINT służącej temu celowi 
jest następująca: 

PRINT (lista wyrażeń oddzielonych separatorami) 
Listę wyrażeń mogą stanowić wyrażenia arytmetyczne, 
wyrażenia łańcuchowe umieszczone w cudzysłowie lub 
zmienne łańcuchowe. Jako separatory mogą być użyte: 
przecinek, średnik lub apostrof. Niech poniższy listing 
będzie przykładem pokazującym możliwości użycia tej 
instrukcji: 





10 CLS 

20 PRINT"wiersz nr 0" 

30 PRINT 

40 PRINT"wiersz nr Z"; 

50 PRINT" dalej wiersz nr 2" 
60 PRINT"wiersz","nr";3 


co w efekcie da na ekranie: 

wiersz nr (0 

wiersz nr 2 dalej wiersz nr 2 

wiersz nr 3 

OK 

Instrukcję PRINT można zastąpić operatorem „,,?” 

tak więc  1007'”MSX-BASIC” jest równoważne 

100PRINT"MSX-BASIC"”. W dalszym ciągu omówione 

zostaną rozszerzenia instrukcji PRINT umożliwiające 

szerokie wykorzystanie jej do formatowania wydruku na 

ekranie. W tym celu omówić musimy użycie instrukcji 

SCREEN. Służy ona do deklaracji ekranów możliwych 

do osiągnięcia w systemie MSX. 

Pełna instrukcja SCREEN ma postać 

SCREEN (tryb pracy ekranu), (rozmiar obiektu 

graficznego), (stan klawiatury), (szybkość 
transmisji), (typ dołączonej drukarki) 

Po włączeniu komputer pracuje w trybie standardowym 
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TABELA II 





określonym instrukcją SCREEN 0,0,1.1.0. Rozszyfrowa- 
nie tego stanu umożliwią informacje zawarte w tabeli II. 
Oczywiście można programowo zdefiniować inny tryb 
pracy np. instrukcją SCREEN 2,,1,2 co oznacza włączo- 
ny tryb wysokiej rozdzielczości, włączone testowanie 
klawiatury, szybkość transmisji 2400 bodów. 
Można również zadeklarować szerokość ekranu w try- 
bie tekstowym za pomocą instrukcji o postaci: 
WIDTH parametr 
Parametrem instrukcji jest liczba 0—39 dla SCREEN 
0 oraz 0—31 dla SCREEN 1. Proponujemy sprawdzić 
program 


10 CLS 

20 FOR X=10 TQ 20 

30 WIDTH X - 

40 PRINT"szerokosc ekranu ";X 
50 FOR K=1 TO 100:NEXT K 

60 NEXT X 


Dyskietka systemowa umożliwia pracę z ekranem osiem- 
dziesięciokolumnowym po wprowadzeniu sekwencji 
BLOAD”BASIC 80.0BJ”",R. 

Do umiejscowienia wydruku na ekranach tekstowych 
służy instrukcja o postaci ogólnej 

LOCATE kolumna, wiersz (kursor) 

gdzie jako kolumny użyć można stałej lub zmiennej 
z zakresu 0—39, jako wiersza z zakresu 0—21, a kursora 
0 gdy wygaszony lub I gdy jest wyświetlany na ekranie. 
Sprawdź: 


10 CLS 
20 LOCATE14,12,0 
30 PRINT"Srodek ekranu" 


Do tabularyzowania wyników można użyć instrukcji 
TAB o postaci: TAB (A)*gdzie A jest stałą lub zmienną 





o zakresie 0—255. Instrukcji TAB użyć można wie- 
lokrotnie pod jedną instrukcja PRINT np.: 


10 CLS 
20 A=5 
30 PRINT"Dzis ";TAB(10);A;TAB(A*2) "wrzesnia" 


Instrukcja ta jest szczególnie przydatna dla tabularyzo- 
wania danych liczbowych i łańcuchów mogących mieć 
różną ilość znaków np. w działalności finansowo-księgo- 
wej. 

Inną bardzo użyteczną formą wykorzystania instrukcji 
wydruku jest: PRINT USING o postaci: 

PRINT USING symbol formatowania; lista wyrażeń 
Jako symboli formatowania dla zmiennych łańcucho- 
wych można użyć: „„!”, „„wn-spacjiy”. .„„Ś”. 

Prosimy wpisać 


10 CLS 

20 PRINTUSING" !";"Ola","Karol" 

30 PRINTUSING"N 4 ";"Kraków","to","lód" 

40 A$="na lewo":B$="na prawo":PRINTUSING"% most ";A$,B$ 





"£ Limost LU”; a$,b$ 

RUN 

OK 

Kra to lód 

Na lewo most na prawo most 
W instrukcji PRINT USING formatować można rów- 
nież dane numeryczne następującymi operatorami zam- 
kniętymiw * ” 
"4,0 470,0—7 74k7,78$”, 
0. 
Możliwości wykorzystania tych operatorów pokaże na- 
stępujący program: 


"Rk$" ""PAAAN”, 





10 CLS 

20 FOR I=i TO 6 

30 READ A 

40 PRINTUSING"RRRR.RR":A 

50 NEXT I 

60 DATA 1,12,-123,123.45,12345.1,.345 


Sens instrukcji z wierszy 20 i 50 wyjaśniony zostanie 
później. 
RUN 
1.00 
12.00 
—123.00 
123.45 
%12345.10 
Znak % przed liczbą oznacza przekroczenie deklarowa- 
nego formatu — została ona wypisana z pominięciem 
obowiązujących reguł. 
— Prosimy zmieniać w wierszu 30 symbole formatowa- 
nia na następujące: 
«kj i+. EdE.SS HEH. Hb HEHEHE. 
HEJEAA ASA „ar ZEREE RETE 
Podane powyżej przykłady użycia operatorów nie wy- 
czerpują wszystkich możliwości użycia PRINT. Możliwe 
jest użycie zarówno operatorów, instrukcji LOCATE, 
TAB oraz różnego sposobu formatowania w jednej 
instrukcji. Może to dać ciekawe wyniki. Warto spróbo- 
wać. 





EKRANY WYSOKIEJ ROZDZIELCZOŚCI 


Dotychczasowe nasze rozważania dotyczyły rozmiesz- 
czania znaków na ekranie monitora wyłącznie w trybach 
tekstowych. Instrukcja SCREEN umożliwia wywołanie 
również ekranów o podwyższonej rozdzielczości. De- 
klarując SCREEN 2 współpracujemy z ekranem o roz- 
dzielczości 192 x 256 punktów, zaś SCREEN 3 wywołuje 
tryb wielokolorowy. Wykorzystuje on współrzędne 
ekranu drugiego (SCREEN 2) jednak jego rozdzielczość 
jest zmniejszona czterokrotnie w poziomie i pionie. Tak 
więc po zadeklarowaniu SCREEN 2 lub SCREEN 3 
przechodzimy do trybu graficznego z programowo usta- 
wionym punktem początkowym grafiki w lewym górnym 
rogu ekranu. 

Najprostszą operacją w tym trybie pracy ekranu jest 
możliwość zaświecenia punktu o kolorze k przez użycie: 

PSET (współrzędna x, współrzędna y), kolor k 
Współrzędne powinny być odpowiednio z zakresu 0 + 255 
oraz 0 + 191. Inne wartości są akceptowane przez system 
(nie są jednak wtedy wykonywane operacje na ekranie). 

System MSX pozwala użyć 16 barw kodowanych 
wartością parametru k z zakresu 0-15. Kolorom tym 
odpowiadają następujące wartości: 


0 — bezbarwny | — czarny 

2 — zielony 3 — jasnozielony 
4 — ciemnonieb. 5 — jasnonieb. 
6 — ciemnoczerw. 7 — siny 

8 — czerwony 9 — jasnoczerw. 
10 — ciemnożółty 11 — jasnożółty 
12 — ciemnozielony 13 — fioletowy 
14 — szary 15 — biały 


W instrukcji PSET parametr koloru nie musi być de- 
klarowany, a wtedy kolorem obowiązującym pozostaje 
kolor wcześniej deklarowany, np. zleceniem COLOR. 

Dokładnie odwrotną czynność do instrukcji PSET, 
a więc wygaszanie punktu dokonujemy używając instruk- 
cji PRESET o identycznym formacie jak PSET. Brak 
deklaracji koloru k powoduje przyjęcie przez punkt 
koloru tła. 

Proponujemy sprawdzić następujący przykład: 





10 SCREEN 2 

20 FOR A=0 TO 255 
30 PSET(A+1,50),9 
40 PRESET (A, 50) 
50 NEXT A 


Imituje on ruch jasnoczerwonego punktu po poziomej 
prostej oddalonej o 50 punktów od górnego krańca 
ekranu. Proponujemy sprawdzić ten przykład zmieniając 
10 linię na 10 SCREEN 3. 

System MSX umożliwia również testowanie stanu 
punktu graficznego na ekranie drugim lub trzecim. 
Instrukcja 


POINT (współrzędna x, współrzędna y) 
przyjmuje wartość kodu koloru k punktu o współrzęd- 
nych x,y. Współrzędne te przyjmują wartości identyczne 
jak instrukcje PSET i PRESET. 


Z kolei instrukcja 


PAINT (współrzędna x, współrzędna y), kolor k 

o parametrach jak powyżej umożliwia wypełnianie, za- 
malowywanie figur zamkniętych kolorem k począwszy 
od punktu o współrzędnych x i y. Oczywiście punkt ten 
musi znaleźć się we wnętrzu figury, zaś kolor musi być 
taki sam, jakim wykreślona została figura, gdyż w prze- 
ciwnym przypadku zakolorowaniu ulegnie cały ekran. 

Dalsze możliwości wykorzystania ekranów graficz- 
nych daje użycie instrukcji LINE. Standardowo instruk- 
cja ta ma postać: 
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LINE (początkowa współrzędna x, początkowa 
współrzędna y), 
— (końcowa współrzędna x, końcowa współrzęd- 
na y), kolor k, parametr p 


Umożliwia ona kreślenie linii prostych (odcinków) za- 
wartych między współrzędnymi początkowymi a koń- 
cowymi w kolorze k. Instrukcja LINE pozwala również 
wykreślić prostokąt oparty na przekątnej określonej 
w instrukcji współrzędnymi początkowymi i końcowymi. 
W tym celu jako p należy użyć oznaczenia B. Możliwe jest 
również wypełnienie tegoż prostokąta kolorem k po 
użyciu w miejsce parametru p oznaczenia BF. Jeszcze 
szersze możliwości daje nam użycie rozszerzonej wersji 
instrukcji LINE o postaci: 


LINE STEP (x,y,) — STEP (x,y,).k,p 
gdzie: 


Xpyp — OZNacza przesunięcie odpowiednio na osi 
x i y początkowego punktu kreślenia odcinka lub prosto- 
kąta względem punktu ostatnio użytego, 
Xgryg — Oznacza długość kreślonego odcinka lub prze- 
kątnej prostokąta. 
Z powyższych informacji wynika możliwość użycia w in- 
strukcjach LINE i LINE STEP ujemnych liczb jako 
parametrów x iy. 

Należy także dodać, że punkt grafiki wysokiej rozdziel- 
czości ma kształt prostokąta, co wynika z proporcji 
boków części roboczej ekranu jak również ilości punktów 








w pionie i poziomie. Stosunek długości boków elementar- 
nego punktu ekranu wynosi około 1,35 i przez taką liczbę 
należy przemnożyć przyrost współrzędnej y względem 
przyrostu współrzędnej x, aby otrzymać na ekranie figurę 
regularną np. kwadrat. 

Powyższe wyjaśnienia przybliży przykład, który pro- 
ponujemy sprawdzić: dla ekranu drugiego i trzeciego: 


10 SCREEN 2 

20 LINE(50,50)-(100,100),5,BF 

30 LINE- (80,80) 

40 LINESTEP(-50,50)-(100,100),10,B 

50 PAINT (80,120),10 4 
60 A=POINT(100, 100) > 
70 B=POINT (50,50) F 
75 FOR T=0T0300:NEXTT:REM pauza ” 
80 SCREENO 

90 PRINT"Kolor 1-go prostokata ma kod nr ";B 

100 PRINT"Kolor 2-go prostokata ma kod nr ";A 


Niezwykle użyteczną instrukcją w systemie MSX jest 
instrukcja DRAW wykorzystująca rozszerzoną wersję 
grafiki BASIC. Jej postać jest pozornie prosta: 

DRAW „wyrażenie łańcuchowe” 

Zawartość łańcucha stanowić mogą litery oraz liczby 

będące elementami kodu makrografiki BASIC. Litery 

definiują kolejno wykonywane operacje zaś liczby są 
argumentami tych operacji. Punktem początkowym kreś- 
lonej grafiki jest ostatni punkt, do którego wcześniej 
odwoływał się program. Poszczególne litery zawarte 

w „„Wyrażeniu łańcuchowym” oznaczają: 

U — rysuj linię w górę (ang. up), 

D — rysuj linię w dół (ang. down), 

R — rysuj linię w prawo (ang. right), 

L — rysuj linię w lewo (ang. left). 

Argumentem tych funkcji jest liczba określająca długość 

linii w umownych jednostkach określonych literą $ 

$ — to skala grafiki, i tak dla skali 1:1 argument litery 
$ wynosi 4, stan ten jest standardowy, zaś $ 8 ozna- 
cza dwukrotne powiększenie skali grafiki wykony- 
wanej po tej deklaracji. 

Możliwe jest również kreślenie wg powyższych zasad linii 

ukośnych za pomocą: 

E — rysuj linię w prawo-górę, 

F — rysuj linię w prawo-dół, 

G — rysuj linię w lewo-dół, 

H — rysuj linię w lewo-górę. 

Argumenty tych funkcji mają identyczne cechy jak wyżej. 

Poza wymienionymi możliwe jest również użycie na- 

stępujących liter: 

A — z argumentem (+ 3, co pozwala na obrót grafiki 
o kąt odpowiednio 90”, 180”, 2707, 360” w kierun- 
ku przeciwnym do ruchu wskazówek zegara, 

— umożliwia przesunięcie punktu ,,rysującego” bez 
kreślenia linii, 

— ustala kolor kreślonych linii zgodnie z kodami 

kolorów, 

kreśli linię od punktu początkowego do punktu 

określonego argumentami tej funkcji, 

— kreśli linię od punktu początkowego do punktu 
ostatnio użytego — dokonuje więc powrotu do 
punktu końcowego przedostatniej operacji, 

X — pozwala wykonywać cykl operacji graficznych 
zdefiniowanych łańcuchem alfanumerycznym bę- 
dącym argumentem tej funkcji. 

Prosimy sprawdzić więc, że zapis 


24 21 Ów 
| 


10 SCREEN 2 

20 PSET(50,50) 

30 DRAW"d20u10e12g12f12" 
40 G0T040 


kreśli dużą literę „„K”, a jeśli dodać do końca łańcucha Al 
wykreślona zostanie litera „K w odbiciu lustrzanym. 
Sprawdź samodzielnie następujące dwa przykłady: 


10 SCREEN 2 

20 A$="u3nr3u3r4bm+4,6" 

30 PSET(100,100)>,10 

40 DRAW A$+"n1l2nr2u692bm+6,1r5bm+3,3"+A$+"*d5132u18r32d13" 
50 GOTO50 


oraz 


10 SCREEN 2 

20 A$="u50r35d50135* 
30 FORI=1 TO 20 STEP 2 
40 PSET(75+I,75+I) 

50 DRAW "xa$;" 

60 NEXT 


"70 GOTO 70 


Przejdźmy do kolejnej instrukcji graficznej o standar- 
dowej postaci: 

CIRCLE (współrzędna x środka, współrzędna y środ- 

ka) promień r, kolor k, kąt u, współczynnik e 
umożliwiającej kreślenie okręgów, elips oraz ich fragmen- 
tów. Współrzędne środka oraz promień muszą być użyte, 
aby instrukcja CIRCLE została zdefiniowana. Pozostałe 
parametry mogą być użyte opcjonalnie. 

Definiują one: 

kolor k — kolor określonej figury, 

kąty u, w — tzw. kąty początkowy i końcowy wyrażane 

w radianach, 

współczynnik e — wzajemny stosunek osi dużej i małej 

dla elipsy. 

Prosimy sprawdzić, że 

CIRCLE (120,100),50,5,,,1.35 
da w efekcie figurę zbliżoną do okręgu, natomiast 

CIRCLE (120,100),50,5 
wykreśli elipsę. Wynika to z wcześniej omawianego- 
kształtu elementarnego punktu ekranu. 

Przedstawione powyżej problemy edycji ekranowej 
oraz.współpracy z ekranami nie wyczerpują zagadnienia 
w całości. Naszym zdaniem zamieściliśmy w artykule 
szereg informacji nieosiągalnych w dostępnej literaturze. 
W kolejnych publikacjach postaramy się o podobne 
podejście do dalszych zagadnień dotyczących mikrokom- 
puterów MSX, a na razie proponujemy zainteresowanym 
tematem samodzielne rozszerzenie informacji drogą stu- 
diów następujących pozycji literatury: 

MSX SPECTRAVIDEO-SVI 738 — PTE Zielona Góra 
1987, : 

MSX-BASIC Referenz Buch fiir PANASONIC 2700 CF 
— Matsushita Electronic Trading Central — Osaka 
1986, 

MSX BASIC Reference Manual — Spectravideo Inter- 
national Ltd. — 1985. 





BUDZIK 
bez trybików i sprężynek 


Siedząc przy klawiaturze komputera i oddając się 
różnym pasjonującym zajęciom bardzo łatwo zapomnieć 
o upływie czasu, nieprawdaż? Zegar tymczasem tyka 
miarowo i wnet okazuje się, że przegapiliśmy umówione 
spotkanie albo audycję telewizyjną (ja stale zapominam 
o moim ulubionym ,,Teleexpresie ). Niektóre programy 
pozwalają wmontować np. w prawy górny róg ekranu 
zegar cyfrowy. W praktyce jego przydatność okazuje się 
jednak problematyczna, gdyż szybko oswajamy się z obe- 
cnością zegara i przestajemy go dostrzegać. Żeby spojrzeć 
na zegar, trzeba by pamiętać, po co... Jednym słowem, 
zamiast zegara przydałby nam się komputerowy budzik, 
przypominający natarczywym dźwiękiem o zbliżaniu się 
zaprogramowanej godziny. W niniejszym artykule zaj- 
miemy się majstrowaniem takiego budzika dla kom- 
puterów klasy PC/XT i AT, a przy okazji rozważymy 
sposoby korzystania z przerwań zegarowych w kom- 
puterach tej klasy oraz metody rozpoznawania obecności 
programów rezydujących i przekazywania parametrów 
do nich. 

Podstawowym narzędziem do odmierzania czasu jest 
w PC/XT i AT układ czasowy 8253. Jeden z jego trzech 
liczników pracuje jako sterowany kwarcowym rezonato- 
rem dzielnik częstotliwości, dostarczający na wyjściu 
impulsów o okresie 0.0549254 s, co odpowiada często- 
tliwości 18.2065 Hz. Każdy z tych impulsów wywołuje 
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przerwanie maskowania IRQ nr 8. Przerwanie to jest 
normalnie obsługiwane przez procedury zawarte w BIOS, 
które m.in. zliczają te impulsy zegarowe. Cały ten proces 
odbywa się naturalnie nieprzerwanie i równolegle z reali- 
zacją programów aplikacyjnych. Czterobajtowy licznik 
zlokalizowany pod adresem absolutnym 0040H:006CH 
zawiera liczbę impulsów zegarowych, zarejestrowanych 
od godziny 0:00. 

Gdyby przejąć wektor przerwania nr 8, mielibyśmy 
możliwość wywołania naszego własnego podprogramu 
co 1/18 sekundy. Właściwość ta byłaby bardzo przydatna 
także dla budzika, który za każdym razem mógłby 
sprawdzić, czy przypadkiem nie nadeszła wyznaczona 
pora. Projektanci firmy IBM przewidzieli taką potrzebę 
i zaprojektowali dodatkowe przerwanie nr 28 (ICH), tym 
razem programowe, które jest wywoływane przez BIOS 
bezpośrednio z procedury obsługi przerwania nr 8. Nor- 
malnie wektor przerwania 28 wskazuje na rozkaz IRET, 
zawarty w pamięci BIOS, tak że przerwanie to jest nie 
wykorzystane. W razie potrzeby można jednak wektor 
ten „„przestawić”” na własną procedurę obsługi przerwania 
zegarowego. Takie rozwiązanie ma dwie zalety: po pierw- 
sze, nie trzeba się specjalnie troszczyć o przekazanie 
sterowania po zakończeniu procedury obsługi z powro- 
tem do BIOS i zapamiętywać w tym celu adresu procedu- 
ry standardowej — wystarczy po prostu zakończyć 





procedurę rozkazem maszynowym IRET; po drugie, 
standardowa procedura obsługi przerwania zewnętrzne- 
go i procedura użytkownika są elegancko rozdzielone, co 
zmniejsza ryzyko ich wzajemnego, niekontrolowanego 
oddziaływania na siebie i zmniejsza groźbę popełnienia 
błędów. 

Chcąc odczytać licznik impulsów zegarowych, można 
to zrobić wprost. Trzeba jednak zadbać, aby w trakcie 
odczytu przerwania były zablokowane. Inaczej grożą 
nieprzewidziane efekty. Przypuśćmy, że młodsze słowo (2 
bajty) licznika ma wartość OFFFFH, słowo starsze — 1, 
co odpowiada dziesiętnej liczbie 131071. Odczytujemy 
licznik do rejestrów CX i DX np. poniższą kombinacją 
rozkazów: 


HOV AX, 0040H 
MOV DS, AX 

MOV DX, [006CH] 
MOV CX, [006EH] 


Pierwsze dwa rozkazy zapewniają tylko właściwy adres 
segmentowy w rejestrze DS. Przypuśćmy, że w chwili 
zakończenia trzeciego rozkazu wystąpiło przerwanie nr 8. 
W wyniku kolejnej inkrementacji licznika nastąpiło prze- 
niesienie do słowa starszego, młodsze słowo zostało 
wyzerowane, a starsze zawiera teraz 2. Licznik zawiera 
więc liczbę 131072. W rejestrze DX znajduje się jednak 
odczytana wcześniej wartość młodszego słowa, czyli 
O0FFFFH (65535), natomiast rejestr CX zostanie załado- 
wany dopiero po zakończeniu obsługi przerwania i dlate- 
go otrzyma nową wartość starszego słowa lieznika, tzn. 2. 
Odczytana wartość 2:+*65536 + 65535 = 196607 jest więc 
obarczona grubym błędem. Aby uniknąć takiej niespo- 
dzianki, należałoby przed odczytem zabronić przerwań 
(rozkazem CLI), a po jego zakończeniu zezwolić na 
przerwania ponownie (STI). np. tak oto: 


CLI 
HOV DX, [006CH] 
MOV (CX, [006EH] 
STI 

W praktyce zawartość licznika impulsów zegarowych 
wygodniej jest odczytywać za pomocą wyspecjalizowanej 
funkcji usługowej, BIOS, dostępnej za pośrednictwem 
przerwania programowego nr 26 (1AH). Jeżeli w chwili 
wywołania tego przerwania rejestr AH zawierał (0, to po 
powrocie w rejestrach CX i DX znajdzie się bieżąca 
wartość licznika (starsze bajty w CX). Jeżeli AH zawiera 
1, to zawartość rejestrów CX i DX zostanie wpisana do 
wewnętrznego licznika, określając jego zawartość począt- 
kową. Funkcji tej można zatem użyć do „„nastawiania” 
wewnętrznego zegara programowego. 

Nasz przyszły budzik po jednorazowym „nastawieniu ” 
powinien stale czuwać i odliczać czas, niezależnie od tego, 
jaki program aplikacyjny eksploatujemy w danej chwili. 
Program budzika musi zawierać zatem część rezydującą 
— instalowaną na stałe w pamięci i odpowiedzialną za 
bieżące porównywanie zaprogramowanego czasu alarmu 
z bieżącym czasem systemowym i w razie potrzeby 
generującą sygnał dźwiękowy. Natomiast funkcje związa- 
ne z „„nastawianiem” budzika może realizować nierezydu- 
jąca część programu, usuwana z pamięci po zakończeniu 
pracy. 

Część rezydująca przechwyci wektor nr 1CH i „na- 
stawi” go na punkt wejścia własnej procedury obsługi. 
Procedura obsługi mogłaby kończyć się rozkazem IRET. 
Rozwiązanie to, choć możliwe i bezpieczne, ma jednak 
pewną wadę. Otóż nasz program budzika może nie być 
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ZegarBIOS 
UslugiDOS 
PowrotDOS 
Pozostaw 

LadujWwekt 
Ustawwekt 


Zzame1duj 


Kod_prog 


Parametry 


Start: 


Haslo: 
Minuty: 
Godziny: 
F1_Aktywn: 
FL_Sygnal: 
WektorOfa: 
WektorSeg: 


Licznik: 


Budzik: 
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1987 nunnakzkaa 


1AH ;nr przerwania obsługi zegara BIOS 
21H nr przerwania wywołania usług DOS 
20H ;nr przerwania zakończenia programu 
27H ;nr fn. czyniącej program rezdującym 
358 numer funkcji odczytującej wektory 
25H numer funkcji zmieniającej wektory 
9 inr funkcji PC-DOS emitującej napisy 


SEGHENT PARA 


ASSUHE CS:Kod_prog 


ORG 129 

LABEL BYTE ;bufor parametrów wywołania programu 
OĄG 256 

JMP Inicjuj ;skok do części inicjacyjnej 
DB * R. WACO288* ;identyfikator części rezyd. 
DB Q ;czas alarmu - pamięć minut 
DB o ;czas alarmu - pamięć godzin 
DB o ;semafor zabraniający obsługi 
DB 0 ;semafor generacji dźwięku 
pw 0 ;adres starego wektora prze- 
pw 0 ;rwania zegarowego nr 1CH 
DB 18 ; licznik ignorowanych cykli 
TEST BYTE PTR FL_Sygnal, OFFH ;trwa emisja dźwięku? 
JEZ Dzwiek ;tak-skok do obsługi dzwięku 
TEST BYTE PTR F]_Aktywn, OFFH ;wejście zabronione? 
JE Ei ;Jeśli nie, to obsłuż budzik 
JHP Koniec itak - pomiń obsługę budzika 
DEC BYTE PTR Licznik ;odlicz Kolejną 1/18 sekundy 
JHE EO ;skok, gdy licznik niezerowy 
KOV BYTE PTR F1_Aktywn, i ; zabroń powtórnego wejścia 
STI ;odblokuj przerwania maskowalne 
PUSH AX przechowaj rejestry na stosie 
PUSH CX 

PUSH DX 

XOR AH, AH ;zeruj rejestr AH - funkcja nr O 
INT ZegarBIOS ;odczytaj czas z BIOS do CX:DX 
HOV AX, DX ;przenieś liczbę rejestrowanych 
HOVv DX,CX ;impulsów z pary CX:DX do DX:AX 
ADD AX,AX ;pomnóż liczbę zawartą w parze 
ADC DX, DX ;rejestrów DX:AX przez 8 drogą 
ADD AX,AX „ EDRIĄCOCZOGO dodawania jej do 
ADC DX, DX ;samej siebie 

ADD AX, AX j 

ADC DX, DX iDX:AX zawiera liczbę cykli x 8 
MOV CX,8739 ;dzielnik (8739. 12-18. 2065w60«8) 
DIV CX ;AX=liczba minut od godziny 0:00 
BOV CL, 60 ipodziel liczbę minut przez 60 
Div CL ;AHzsminuty czasu akt., AL=godziny 
XCHG AH, AL minuty do rej. AL, godziny do AH 
CHP AX, WORD PTR Ninuty ; porównaj czas akt. i alarmu 
JC  BezAlarmu „Skok, jeśli czas alarmu>czas akt. 
HOV BYTE PTR FL_Sygnal,i ;ustaw semafor gen. tonu 
HOV BYTE PTR Licznik, 1846 ; ładuj licznik cykli tonu 








jedynym, wykorzystującym wektor ICH i przerwania 
zegarowe. Przypuśćmy, że wcześniej zainstalowaliśmy 
w pamięci np. program zwykłego zegara cyfrowego, który 
przejął przerwanie 1CH. Następnie ładujemy nasz bu- 
dzik, który także przejmuje to przerwanie, „„kradnąc” je 
zegarowi, który od tej pory beznadziejnie stoi. Aby tego 
uniknąć, zamiast rozkazem IRET zakończymy procedurę 
obsługi rozkazem skoku do starego adresu (musimy go 
oczywiście wcześniej zapamiętać). Jeżeli wektor ten wska- 
zywał na rozkaz IRET w BIOS (stan wyjściowy), to nic się 
nie zmieni, w przeciwnym razie zostanie wykonana 
wcześniej zainstalowana procedura obsługi, zupełnie tak 
samo, jak gdyby skok do niej nastąpił od razu po 
przerwaniu. 

Niech gotowy program nosi nazwę BUDZIK.COM. 
Jego wywołanie będzie miało postać: 

BUDZIK gg:mm 
gdzie gg i mm to grupy złożone z I lub 2 cyfr i rozdzielone 
dwukropkiem, a przedstawiające odpowiednio godzinę 
i minutę alarmu, np. BUDZIK 12:53 albo BUDZIK 7:0. 
Aby wyłączyć budzik, wystarczy podać czas spoza sen- 
sownego zakresu, np. 25:0, albo użyć zlecenia BUDZIK 
bez argumentów. 

Przy pierwszym wywołaniu rezydująca część programu 
pozostanie w pamięci, ale przy każdym następnym wywo- 
łaniu instalowanie programu w pamięci nie powinno już 
mieć miejsca. Wystarczy zmienić zapisany w części rezy- 
dującej czas alarmu. Program musi więc potrafić stwier- 
dzić istnienie w pamięci swej części rezydującej, a w razie 
jej wykrycia — zrezygnować z ponownej instalacji. 

Jak stwierdzić obecność programu BUDZIK w pamię- 
ci? Bardzo prosto. W ustalonym miejscu części rezydują- 
cej wpiszemy pewną charakterystyczną sekwencję baj- 
tów, stanowiącą „hasło”. Po każdym wywołaniu pro- 
gramu BUDZIK najpierw odczytamy bieżący wektor 
ICH. Teraz wystarczy porównać zapisane w programie 
BUDZIK.COM hasło z domniemanym fragmentem pa- 
mięci, w którym powinno znajdować się hasło w pro- 
gramie rezydującym. Jeżeli program jest już w pamięci, to 
segment tego wektora jest równocześnie adresem segmen- 
towym części rezydującej, a przesunięcia adresowe 
(offset) poszczególnych fragmentów programu są iden- 
tyczne zarówno w programie BUDZIK .COM dopiero co 
załadowanym z dysku, jak i w kopii jego fragmentu, 
rezydującej już w pamięci. Jeżeli porównanie da wynik 
pozytywny, możemy śmiało przyjąć, że część rezydującą 
załadowano już wcześniej. W przeciwnym razie część 
rezydującą trzeba dopiero załadować. Warto zauważyć, 
że opisana metoda identyfikacji będzie skuteczna tylko 
wtedy, gdy po programie BUDZIK nie załadowano 
żadnego innego programu rezydującego, ,„„przeginające- 
go” wektor przerwania nr ICH! 

Niezależnie od tego, czy program BUDZIK już rezydu- 
je, czy też nie, należy przeanalizować parametry zlecenia 
i zapisać odpowiedni czas alarmu. Parametry zlecenia 
znajdują się w nagłówku programu od adresu 129, gdzie 
umieszcza ję system operacyjny. Znak (CR) (ASCII 13 
lub OCH) kończy linię zlecenia. Ewentualne spacje pomi- 
jamy, poza tym dozwolone są tylko cyfry i dwukropek. 
Każdy inny znak przerywa analizę i powoduje wysłanie 
komunikatu o błędzie. Po rozpoznaniu cyfry dotych- 
czasowa wartość liczby godzin lub minut jest mnożona 
przez podstawę systemu, tj. przez 10, po czym dodawana 
jest do niej wartość cyfry. Program sprawdza, czy wy- 
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Dzwiek: 


wlaczTon: 


StopTon: 


BezAlarm: 


Powrot: 


KoniecTon: 


Koniec: 


Inicjuj: 


Rezyduje: 


LadujZnak: 


€LI 
MOV 


434 A 


a 


LI 


JES 


33333 


PIKAŹ 


33833 


POP 


;zabroń reakcji na przerwania IRQ 
BYTE PTR FL_AKktywn, 00000010B ;wyłącz budzik 
Powrot ;to Już Koniec obsługi budzika 
AX ;przechowaj na stosie rejestr AX 
BYTE PTR Licznik ;odlicz Kolejny cyki tonu 
StopTon ;skok, Jeżeli licznik Już ujemy 
BYTE PTR Licznik, 1 ;czy licznik jest parzysty? 

;zabroń reakcji na przerwania IRQ 
wiaczTon ;licznik nieparzysty-włącz dźwięk 
AL, 618 ;licznik parzysty - wyłącz dźwięk 


AL, 111111008 ; przez wyzerowanie bitów nr O 1 1 


61H, AL ;w rejestrze nr 61H 

KoniecTon ;opuść procedurę obsługi dźwięku 
AL, OB6GH ;zaprogramuj dzielnik częstotliw. 
43H, AL ;wpisując bajt ster. do portu 43H 
AL, 8 ;zapisz dwubajtowy współczynnik 
42H, AL ;podziału częstotliwości do re- 
42H, AL ;Jestru nr 42H (Kolejno 2 bajty) 
AL, 61H ;rozpocznij generację dźwięku 
AL, 11B ;przez ustawienie bitów nr O 1 1 
61H, AL ;w rejestrze nr 61H 

KoniecTon ;opuść procedurę obsługi dźwięku 


BYTE PTR FL_Sygnal,0 ;zeruj semafor gen. tonu 


KoniecTon ;opuść program generacji 


BYTE PTR FL_Aktywn, O ;umożliw ponowne wejście 
BYTE PTR Licznik, 18  ;inicjuj ponownie licznik 
Dx ;odtwórz używane rejestry 
cx 
AX 


DWORD PTR WektorOfs ;sKok do starej procedury 


ASSUME DS:Kod_prog 


RĘĘĘSTSISZŃ 
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3 


3338 


LODSB 


CHP 
JE 
CHP 
JE 
CHP 


AH, Ladujwekt ;wywołaj funkcję PC-DOS, 
AL, 1CH ;ładując wektor przerwa- 
Uslug1DOS ;nia nr 1CH do rej. ES:BX 
WORD PTR WektorScg, ES ; pamiętaj segment mektora 
wORD PTR WektorOfs, BX ; pamiętaj offset wektora 
S1, OFFSET Haslo iSIzoffset identyfikatora 
DI, SI iDIzoffset identyfikatora 
cx, 4 licz. porównywanych słów 
CHPSW ;porównuj kod 1 identyfikator 
Rezyduje ;zgodność-program już rezyduje 
Ds skopiuj do rejestru ES bie- 
ES ;zącą zawartość rejestru DS 


BYTE PTR ES:F]_Aktywn, 10B; czasowo wyłącz budzik 


SI, OFFSET Parametry ;:adres parametrów do SI 


CH, 2 ; załaduj licznik dwukropków 
CL, 3 ;załaduj licznik cyfr godzin 
AH, AH ;wyzeruj liczbę godzin w AH 

;nast. bajt bł. param. do AL 
AL, ODH ;czy Koniec bloku parametrów? 
KoniecPar ;tak,bo znak <CR> kończy blok 
AL, ' * ;czy kolejny znak Jest spacją? 
LadujZnak ;Jeśli tak, to zignoruj spację 
AL, *:* ;czy ten znak to dwukropek? 





stąpił dwukropek i czy liczba cyfr w specyfikacji minut 
i godzin nie była większa od 2. Jeżeli wartość jest 
formalnie poprawna, zostanie zapisana w odpowiedniej 
komórce rezydującej części programu. 

Adres segmentowy rezydującej części programu znaj- 
duje się w rejestrze ES. Jeżeli program już rezydował, 
wpisujemy do ES adres segmentowy bieżącego wektora 
przerwania nr ICH, w przeciwnym razie po prostu 
kopiujemy do ES rejestr CS (pozostawi on przecież 
w pamięci własną część rezydującą). Zgodność ES i CS 
posłuży zresztą w dalszej części programu za wskaźnik 
czy instalować część rezydującą. 

Przejdźmy teraz do procedury obsługi budzika, stano- 
wiącej rdzeń całego programu. Jest ona wywoływana ok. 
18 razy na sekundę. W zasadzie można by po każdym 
wywołaniu sprawdzać, czy bieżący czas systemowy zga- 
dza się z zaprogramowanym czasem alarmu. Nasz budzik 
nie musi być jednak lekkoatletycznym stoperem, reakcja 
z dokładnością do ok. sekundy jest aż nadto wystar- 
czająca. Przyjmijmy więc, że tylko co 18 wywołanie 
spowoduje badanie zgodności czasu, pozostałe będą 
pomijane. Takie rozwiązanie zmniejsza „„narzut” czaso- 
wy wprowadzany do systemu wskutek obecności budzi- 
ka. Co prawda operacje sprawdzające są w naszym 
przypadku dość proste, ale w innym zastosowaniu mogły- 
by być bardziej złożone. Metodą obsługi co któregoś 
przerwania zegarowego można wyważyć proporcję 
między szybkością reakcji a narzutem cząsowym. Od- 
liczanie co 18 cyklu odbywa się przy udziale zmiennej: 
LICZNIK. 

Po osiągnięciu czasu alarmu najprościej byłoby nie 
opuszczać obsługi przerwania aż do czasu wyemitowania 
całego sygnału dźwiękowego. Istotny mankament polega 
na tym, że na ten czas jest zablokowana reakcja na 
przerwania zegarowe w innych, współbieżnych progra- 
mach, także korzystających z przerwania nr 1CH, a także 
wszelka inna aktywność tych programów (komputer 
czasowo .„,zamiera”'). Zastosujemy inny wariant: ustawi- 
my wskaźnik trybu emisji dźwięku (zmienna: Fl __syg- 
nal), który po każdym kolejnym przerwaniu zegarowym 
spowoduje przekazanie sterowania zamiast do procedury 
porównywania czasów — do programu emisji dźwięku. 
Program ten odlicza kolejne cykle (znowu zmienna: 
Licznik). Jeżeli licznik jest nieparzysty, program włączy 
emisje dźwięku, w przeciwnym razie — wyłączy go, po 
czym zakończy obsługę przerwania. Tak więc co 1/18 
sekundy dźwięk na przemian jest włączany i wyłączany. 
Ponieważ emisja dźwięku odbywa się z użyciem układu 
czasowego 8253, bez absorbowania procesora, przerywa- 
ny dźwięk o czasie trwania ok. 6 sekund będzie emitowa- 
ny bez blokowania pracy bieżącego programu. 

Samo programowanie generatora dźwięku to już mate- 
riał na osobny artykuł. Tutaj wspomnijmy, że trzeba 
w tym celu wykonać dwie czynności: zaprogramować 
jeden z liczników układu 8253 do pracy w charakterze 
dzielnika częstotliwości z odpowiednim współczynnikiem 
podziału, oraz odblokować wyjście na głośnik, ustawiając 
dwa najmłodsze bity w rejestrze układu równoległego 
wejścia-wyjścia 8255. Do zablokowania emisji dźwięku 
wystarczy wyzerowanie tych bitów. 

Jeszcze garść szczegółów. Do czego służy zmienna 
Fl Aktywn? Ustawienie któregokolwiek z jej bitów 
uniemożliwia wywołanie procedury obsługi budzika. 
Może to być przydatne w dwóch przypadkach: wtedy, 


JE Dwukropek ;Jeżeli tak, przejdź do minut 
CHP AL, *9* ikod znaku większy niż Kod 9? 
JA  BlednyPar ;Jeśli tak, podano zły parametr 
SUB AL, *Q0* ;AL:= Kod znaku - kod cyfry O 
Js  BlednyPar ;różnica ujemna = zły parametr 
DEC CL ;odlicz kolejną cyfrę w grupie 


JZ BlednyPar ;Jeżeli liczba cyfr>ę, to błąd 


ADD AH, AH ;pomnóż biezącą wartość liczby 
ADD AL, AH ;przez 10, dodając do niej przy 
ADD AH, AH ;okazji wartość ostatnio wpro- 
ADD AH, AR ;wadzonej cyfry 

ADD AH, AL 


JMP LadujZnak ;analizuj Kolejny znak param. 


Dwukropek:DEC CH ;czy to pierwszy dwukropek? 


JNZ PiszGodz ;tak - pamiętaj godzinę alarmu 
BlednyPar:NOV DX, OFFSET MeldBlPar ;DXzadres melunku o błędzie 
Bezinstal:HOV AH, Zamelduj ;wywołaj funkcję PC-DOS, emitu- 
INT UsługiDOS ;Jącą meldunki o0 adresie w DX 


1NT PowrotDOS ;zwyczajJny powrót do PC-DOS 


PiszGodz: HOV BYTE PTR ES:Godziny, AH ;zapisz godzinę alarmu 
XOR AH, AH ;wyzeruj liczbę minut w AH 
HOV CL,3 ;załaduj licznik cyfr minut 


JHP LadujZnak ;analizuj Kolejny znak param. 


KoniecPar:DEC CH ;czy wystąpił już dwukropek? 
BlednyPar ;nie- nie podano minut - błąd! 
BYTE PTR ES:Minuty, AH ;zapisz minutę alarmu 
BYTE PTR ES:Licznik, 18 ;inicjuj licznik cykli 
BYTE PTR ES:FL_Aktywn, 11111101B 

AX, ES ;czy DS<>ES, co znaczy, że pro- 
AX, WORD PTR WektorSeg; gram jeszcze nie rezuduje 
DX, OFFSET NeldNast; DX-adres meldunku o nastawie 
Bezinstal ;skocz, jeżeli Już rezyduje 
DX, OFFSET Meldlnst; DX:adres meldunku instalacji 
AH, Zame l duj ;wywołaj funkcję PC-DOS, emi tu- 
UslugiDOS ;Jącą meldunki o adresie w DX 
AH, Ustawwekt ;zapisz nowy wektor przerwania 
AL, 1CH ;nr 1CH, ustawiając go na wejś- 
DX, OFFSET Budzik ; cie procedury obsługi budzika 


UslugiDOS ;korzystając z usług PC-DOS 


ZEZEEORZAKAŁAREJ 


DX, OFFSET Inicjuj; DX=granica części rezydyjącej 


. 


Pozostaw i;uczyń program rezydującym 


HeldBlPar: DB 7, 'Hieobecny lub wadliwy parametr! *, ODH, OAH, *$* 
Heldlnst: DB *Program zainstalowano w pamieci. *, ODM, OAH, *$* 


HeldRast: DB *Zmieniono nastawe budzika. *, ODH, OAH, *$* 


Kod_Prog  EBDS 
EBD Start 


jyrzzznnnzzanununAnu BUDZIK wersja 1.01 sakukRNEKKREANAZNZZA 
j;uunaunasza Roland Wacławek, Siemianowice 81. 1987 saakskkkki 


ZegarBIOS EGU 1AH ;nr przerwania obsługi zegara BIOS 
UslugiDOS EGU 21H ;nr przerwania wywołania usług DOS 
PowrotDOS EGU 20H inr przerwania zakończenia programu 
Pozostaw EGU 27H ;nr fn. czyniącej program rezdującym 
Ladujwekt EGU 35H ;numer funkcji odczytującej wektory 
Ustawwekt EGU 25H ;numer funkcji zmieniającej wektory 
Zamelduj EGU 9 ;nr funkcji PC-DOS emitującej napisy 


Kod_prog SEGMENT PARA 


Parametry LABEL BYTE ;bufor parametrów wywołania programu 
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gdy chcemy całkowicie wyłączyć budzik albo wtedy, gdy 
obsługa budzika już trwa, ale wskutek jej przeciągnięcia 
(np. w wyniku obsługi innych przerwań) grozi ponowne 
jej wywołanie przed zakończeniem wywołania bieżącego. 
Dlatego na czas porównywania czasów ustawiany jest bit 
nr O tej zmiennej. Bit nr | zostanie trwale ustawiony po 
wykonaniu alarmu. Bit ten jest też ustawiany na czas 
wpisywania nowego czasu alarmu po wywołaniu pro- 
gramu BUDZIK.COM, co zapobiega przypadkowemu 
wywołaniu alarmu o niewłaściwej porze po wpisaniu 
godzin, ale jeszcze przed wpisaniem minut. W tym 
miejscu należałoby dodać, że alarm zostanie spowodowa- 
ny nie tylko w razie zgodności obu czasów, ale także 
"wtedy, gdy podany czas alarmu jest wcześniejszy od czasu 
bieżącego. Sygnał dźwiękowy zabrzmi wówczas niezwło- 
cznie, sygnalizując w ten sposób prawdopodobny błąd. 

Jeszcze jedna sprawa: jak odbywa się porównywanie 
czasów? Wywołując przerwanie 1AH otrzymujemy czas 
bieżący w postaci liczby impulsów zegarowych zarejes- 
trowanych od godziny 0:00. W celu porównania z zapro- 
gramowanym czasem alarmu musimy przetworzyć to na 
minuty i godziny. Niestety, na minutę nie przypada 
skończona liczba impulsów. Procesor 8086/88 nie posia- 
da zaś rozkazów operujących na liczbach ułamkowych. 
Aby zwiększyć precyzję porównania, najpierw mnożymy 
odczytaną liczbę impulsów przez 8, a potem dzielimy 
przez liczbę impulsów przypadających na 1 minutę, także 
pomnożoną przez 8. Tak czy inaczej musimy zrezy- 
gnować z części ułamkowej dzielnika, ale względny błąd 
wynikający z jej odrzucenia jest w tym przypadku średnio 
rzecz biorąc 8 razy mniejszy (Średni błąd zaokrąglenia jest 
odwrotnie proporcjonalny do wartości zaokrąglanej licz- 
by). W wyniku dzielenia otrzymamy iloraz przedstawiają- 
cy liczbę minut, które upłynęły od godziny 0:00. Teraz 
wystarczy podzielić go przez 60, aby nowy iloraz re- 
prezentował liczbę godzin, a reszta z dzielenia — liczbę 
minut. Jeszcze jedno: ponieważ przy porównywaniu 
czasów badamy nie tylko ich zgodność, ale także ewen- 
tualną większość, liczba godzin musi być zapisana w baj- 
cie bardziej znaczącym! 

Gwoli ścisłości należałoby zaznaczyć, że PC-DOS 
dostarcza funkcji usługowych, podających bieżący czas 
wprost w godzinach, minutach i sekundach (funkcja nr 
2CH przerwania nr 21H). Wywołania DOS są jednak 
znacznie bardziej czasochłonne, no i sprawa, powiedział- 
bym, pryncypialna (zarzekam się, że nie jestem tzw. 
czynnikiem!): PC-DOS nie jest systemem wieloprogramo- 
wym, a zatem jego funkcje usługowe nie muszą nadawać 
się do wywoływania z procedur obsługi przerwania. 
W przypadku funkcji 2CH nie miałoby to raczej więk- 
szego znaczenia, ale nasze rozwiązanie jest przynajmniej 
formalnie poprawne. s 

Opisany program, co prawda w wersji bardziej roz- 
budowanej, był eksploatowany we współpracy z wieloma 
programami, w tym MS-WORD 3.0 i FRAMEWORK, 
które także ,,przeginają” wektor ICH. Skutek był jak 
najbardziej pozytywny, przynajmniej z punktu widzenia 
TVP (zwiększona oglądalność Teleexpressu i Smurfów). 
Program został zapisany w konwencji przeznaczonej do 
uruchamiania w formacie .COM. Aby uzyskać działający 
program typu .COM, należy użyć kolejno asemblera (np. 
MASM), konsolidatora (np. LINK) oraz przetworzyć 
wyprodukowany przez konsolidator plik typu .EXE na 
program typu .COM za pomocą programu EXE2BIN. 
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Start: 
Haslo: 
Hinuty: 
Godziny: 
F1_Aktywn: 
FL_Sygnal: 
wektorOfs: 
wektorSeg: 
Licznik: 


Budzik: 


Dzwiek: 


wlaczTon: 


StopTon: 


BezAlarmi: 
Powrot: 


KoniecTon: 
Koniec: 


Inicjuj: 


Rezyduje: 


LadujZnak: 


433385 48 432093583 4SE 


38ł gojąj SEi 


m 
gaz 


BERBRESSGAJ 


REBBZESZSSPĄRĄKĄ ARE ASRR ĄJZZSSĄAŚ 
w 


256 
Inicjuj ;skok do części inicjacyjnej 
*R. WACO288* ;identyfikator części rezyd. 
o ;czas alarmu - pamięć minut 
o ;czas alarmu - pamięć godzin 
o ;semafor zabraniający obsługi 
o ;semafor generacji dźwięku 
o ;adres starego wektora prze- 
o ;rwania zegarowego nr 1CH 
18 ;licznik ignorowanych cyKli 
BYTE PTR FL_Sygnal, OFFH strwa emisja dzwięku? 
Dzwiek ;tak-skok do obsługi dzwięku 
BYTE PTR F1_Aktywn, OFFH ;wejście zabronione? 
Ei ;Jeśli nie, to obsłuż budzik 
Koniec ;tak - pomiń obsługę budzika 
BYTE PTR Licznik ;odlicz kolejną 1/18 sekundy 
EO ;skok, gdy licznik niezerowy 
BYTE PTR F1_Aktywn, i ; zabroń powtórnego wejścia 
;odblokuj przerwania maskowalne 
AX ;przechowaj rejestry na stosie 
cx 
Dx 
AH, AH ;zeruj rejestr AH - funkcja nr 0 
ZegarB1I0OS ;odczytaj czas Zz BIOS do CX:DX 
AX, DX przenieś liczbę rejestrowanych 
DX, CX ;impulsów z pary CX:DX do DX:AX 
AX, AX ;pomnóż liczbę zawartą w parze 
DX, DX ;rejestrów DX:AX przez 8 drogą 
AX, AX ;trzykrotnego dodawania Jej do 
DX, DX samej siebie 
AX, AX 
BX, DX iDX:AX zawiera |Jliczbę CYyKli x 6 
CX, 8739 ;dzielnik (8739. 12:18. 2065«x60+8) 
cx ;AX-liczba minut od godziny 0:00 
CL, 60 ;podziel liczbę minut przez 60 
CL ;AH=minuty czasu akt., AL=godziny 


AH, AL ;minuty do rej. AL, godziny do AH 
AX, WORD PTR Minuty ; porównaj czas ąqkt. i alarmu 
BezAlarmu ;skok, jeśli czas alarmu>czas akt. 
BYTE PTR FL_Sygnal, i „ustaw semafór gen. tonu 
BYTE PTR Licznik, 1846 ; ładuj licznik cykli tonu 

;zabroń reakcji na przerwania IRQ 
BYTE PTR FL_Aktywn, 00000010B ;wyłącz budzik 
Powrot ;to Już Koniec obsługi budzika 


AX przechowaj na stosie rejestr AX 
BYTE PTR Licznik ;odlicz Kolejny cykl tonu 
StopTon ;skok, jeżeli licznik Już ujemny 
BYTE PTR Licznik, i ;czy licznik jest parzysty? 

;zabroń reakcji na przerwania IRQ 


wlaczTon ;licznik nieparzysty-włącz dźwięk 
AL, 61H ;licznik parzysty - wyłącz dźwięk 
AL, 11111100B ;przez wyzerowanie bitów nr O i 1 
61H, AL iw rejestrze nr 61H 

KoniecTon ;opuść procedurę obsługi dźwięku 
AL, OBGH ;zaprogramuj dzielnik częstotliw. 
43H, AL wpisując bajt ster. do portu 43H 
AL, 8 ;zapisz dwubajtowy współczynnik 
42H, AL ;podziału częstotliwości do re- 
42H, AL ;Jestru nr 42H (kolejno £ bajty) 
AL, 61H ;rozpocznij generację dźwięku 
AL, 11B ;przez ustawienie bitów nr O i 1 
61B, AL ;w rejestrze nr 61H 

KoniecTon ;opuść procedurę obsługi dźwięku 


;zeruj semafor gen. tonu 
;opuść program generacji 


BYTE PTR FL_Sygnal, O 
KoniecTon 


;umożliw ponowne wejście 
;inicjuj ponownie licznik 


BYTE PTR FL_Aktywn, O 
BYTE PTR Licznik, 18 


Dx ;odtwórz używane rejestry 
cx 
AX 
DWORD PTR WektorOfs ;skok do starej procedury 
D8:Kod_prog 
AH, Ladujwekt ;wywołaj funkcję  PC-DOS, 
AL, 1CH ;ładując wektor przerwa- 
Uslug1DOS inia nr 1CH do rej. ES:BX 


wORD PTR WektorSeg, ES ; pamiętaj segment wektora 
wORD PTR WektorOfs, BX ; pamiętaj offset wektora 
SI, OFFSET Haslo ;SIzoffset identyfikatora 
DI, SI ;DIzoffset identyfikatora 

ilicz. porównywanych słów 
;porównuj Kod i identyfikator 
;zgodność-program już rezyduje 
;skopiuj do rejestru ES bie- 
ES ;żącą zawarto»ć rejestru DS 
BYTE PTR ES:F1_Aktywn, 10B; czasowo wyłącz budzik 
SI, OFFSET Parametry ; adres parametrów do SI 
CH, 2 ;załaduj licznik dwukropków 
CL, 3 ;załaduj licznik cyfr godzin 
AH, AH ;wyzeruj liczbę godzin w AH 
inast. bajt bl. param. do AL 
;czy koniec bloku parametrów? 
;tak,bo znak <CR> kończy blok 
iczy Kolejny znak jest spacją? 
;Jeśli tak, to zignoruj spację 
;czy ten znak to dwukropek? 
Jeżeli tak, przejdź do minut 
;kod znaku większy niż kod 9? 
;Jeśli tak, podano zły parametr 
;AL:= Kod znaku - Kod cyfry O 
;różnica ujemna = zły parametr 
;odlicz Kolejną cyfrę w grupie 
;Jeżeli liczba cyfr>2, to błąd 
;pomnóż bieżącą wartość liczby 
;przez 10, dodając do niej przy 
;okazji wartość ostatnio wpro- 
;wadzonej cyfry 





AL, ODH 
KoniecPar 


LadujZnak ;analizuj Kolejny znak param. 


Dwukropek: 


BlednyPar: 
Bezlnstal: 


PiszGodz: 


KoniecPar: 


HeldBlPar: 
Heldlnst: 
Ne ldNast: 


Kod_Prog 


PROGRAM Loader_BUDZIKA; 


EEEECEELECECEELLLECERELEEN 


CH ;czy to pierwszy dwukropek? 
PiszGodz ; tak - pamiętaj godzinę alarmu 
DX, OFFSET MeldBlPar ; DX=adres melunku o błędzie 


AH, Zame ] duj ;wywołaj funkcję PC-DOS, emitu- 
Uslug1DOS ;Jącą meldunki 0 adresie w DX 
PowrotDOS ;zwyczajny powrót do PC-DOS 


BYTE PTR ES:Godziny, AH ;zapisz godzinę alarmu 


AH, AR ;wyzeruj liczbę minut w AH 
GL, 3 ;załaduj licznik cyfr minut 
LadujZnak ;analizuj Kolejny znak param. 
CH ;czy wystąpił już dwukropek? 
BlednyPar ;nie- nie podano minut - błąd! 


BYTE PTR ES:Minuty, AH ;zapisz minutę alarmu 
BYTE PTR ES:Licznik, 18 ;inicjuj licznik cykli 
BYTE PTR ES:FL_Aktywn, 11111101B 

AX, ES ;czy DS<>ES, co znaczy, że pro- 
AX, WORD PTR WektorSeg; gram jeszcze nie rezuduje 
DX, OFFSET MeldNast; DX=adres meldunku o nastawie 
Bezinstal ;skocz, Jeżeli już rezyduje 
DX, OFFSET Meldlnst; DX:adres meldunku instalacji 
AH, Zame ] duj ;wywołaj funkcję PC-DOS, emitu- 


UslugiDOS ;Jącą meldunki 0 adresie w DX 
AR, Ustawwekt ;zapisz nowy wektor przerwania 
AL, 1CH ;nr 1CH, ustawiając go na wejś- 


DX, OFFSET Budzik ; cie procedury obsługi budzika 
Uslug1DOS ;korzystając z usług PC-DOS 
DX, OFFSET Inicjuj; DX=granica części rezydyjącej 
Pozostaw ;uczyń program rezydującym 


7, *Nieobecny lub wadliwy parametr! ', ODH, OAH, *$' 


"Program zainstalowano w pamieci. *, ODH, OAB, *$* 
"Zmieniono nastawe budzika. *, ODH, OAH, *$* 


iRolanq Wacławek 881 


CONST Kod_progr: ARRAY[1..28] OF STRING([3E] - 


42 E9BCO0522E5741433032383800000000*, 
+00000000122EF6060F01FF75582EF606'*, 
*0E01FF7403E992002EFE0E140175F62E"*, 
+C€6060E0101FB50515232E4CD1ABBC28B', 
*D103CU1 4D203C013D203C013D2B92322"*, 
*F7F1B13CF6F186E02E3B060C01724CZE', 
+C6060F01012EC60614016CFA2ZECGOG60E', 
*'0102EB4390502EFE0E140178252EF606*, 
*140101FA7509E46124FCE661EB2B9OBO*, 
*B6E643B008E642E642E4610COJE661EB', 
*18902EC6060F0100EBOF902EC6060E01 *, 
*002EC6061401125A59582EFF2E1001B4*, 


*35B01CCD218C061201891E1001BEQ301*, 


*8BFEB90400F3A774021E0726800E0E0! ', 
*Q2BE8100B502B10332E4AC3COD74383C', 
*2074F73C3A74183C3977182C307814FE*, 
*'C974100ZE402ZC4OZE402E402E0EBDBFE *, 
+€D7509BA5C02B409CD21CD202688260D*, 
*0132E4B103BBCJFECD75E82688260C01 *, 
+ 26C6061401122680260E01FD8CCOJBOG *, 
+1201BAA20274CFBATFO2B409CD21B425*, 
*B01CBA1501CD21BABF01CD27074E6965*, 
+6F6265636E79206C7562207761646C69*, 
*111920706172616D657472210D0A2450*, 
*126F6772616D207A61696E7374616C6F', 
*11616E6F20772070616D696563692E0D*, 
+ 0A245A6D69656E696F6E6F206E617374'*, 


*617765206275647A696B612EODOA24 ' ]; 


VAR i,K,b;kod_bledu: Integer; 


bajt WSFŁE: 
suma : Real; 
progr : FILE OF Byte; 


BEGIN suma: - 0; 


Assign(progr, *BUDZIK. COM*); Rewrite(progr); 


FOR i:-1 TO 28 DO 


FOR Kk:-1 TO Length(kod _progr[i]) Div 2 DO 


BEGIN Val('$'+Copy(Kod_progr[i], k»2-1,2), 


b, Kod_bledu); Dbajt:- b; 


write (Progr, bajt); suma:- suma+bajt 
EKD; 
1F suma: 41414. O 
THER BEGIH Close(progr); Writeln('Gotowe'] 
END 
ELSE writeln(*Niepoprawny blok danych! *) 


PROGRAM Loader_BUDZIKA; (Roland Wacławek 88] 
CORST Kod_progr: ARRAY[1.. 28] OF STRING[32)- 
(*E9BQ00522E5741433032383800000000*, 
+00000000122EF6060F01FF75582EF606*, 
*0E01FF7403E992002EFE0E140175F62E"*, 
*C6060E0101FB50515232E4CD1AGBCZGB", 
*D103C013D203C013D203C013D2B92322*, 
*FTF1B13CF6F186E02R3B0O60C01724C2ZE"', 
*C6060F01012EC60614016CFAZEC6060E*, 
+0102EB4390502EFE0E140178252EF606*, 
*140101FAT509E46124FCE661EB2B90BO*, 
*B6 3B008R642E642E4610C03JE661EB*, 
+18902EC6060F010O0EBOF902EC6060E01 *, 
*002EC6061401125A59562EFF2E1001B4*, 
*35B01CCD218C061201891E1001BE0301*, 
* 8BFEB90400F3A774021E0726800E0E01 *, 
*02BE8100B502B10332E4AC3COD74383C*, 
*2074F73C3A74183C3977182C307814FE*, 
*C9741002E402CAO2RAO2ZE402E0EBDBFE ', 
*CD7509BA5C02B409CD21CD202688260D', 
*0132E4B103JEBCJFECD75E82688260C01', 
+26C6061401122680260E01FDACCO3JB06 *, 
*1201BAA20274CFBA7F02B409CD21B425*, 
*B01CBA1501CD21BABF01CD27074E6965', 
+6F6265636E79206C7562207761646C69*, 
*T11920706172616D657472210D0A2450*, 
*126F6772616D207A61696E7374616C6F*, 
*17616E6F20772070616D696563692E0D*, 
*0A245A6D69656E696F6E6F206E617374*, 
+617765206275647A696B6.2EODOA24* ); 
VAR i,K,b,Kod bledu: Integer; 


bajt : Byte; 

suma : Real; * 

progr ; FILE OF Byte; 
BEGIN suma: - 0; 


Assign(progr, *BUDZIK. COM*); Rewrite(proer); 
FOR i: TO 28 DO 





FOR K:-1i TO Length(kod_progr[i)) DIv 2 DO 
BEGIN Val(*$*+Coópy(Kod_progr[1i],ka2-1,2), 
Db, Kod_bledu); bajt:= b; 
Wwrite(Progr, bajt); suma:- suma+bajt 
EHD; 
1F suma- 41414. O 
THEN BEGIN Close(progr); Writeln(*Gotowe'] 
ID 


ELSE Writeln(*NHiepoprawny blok danych! *) 
END. 


Oto przykładowy ciąg zleceń, prowadzących do celu 
(zakładamy, że plik źródłowy nosi nazwę BU- 
DZIK.ASM): 

MASM budzik; 

LINK budzik; 

EXE2BIN budzik.exe budzik.com 

Wysyłany przez konsolidator komunikat ostrzegaw- 
czy: Warning: no STACK segment jest w tym przypadku 
bez znaczenia. Jak zwykle, dla Czytelników niezbyt 
biegłych w asemblerze, ale zainteresowanych zabawą 
z programem zamieszczamy program ładujący w języku 
wysokiego poziomu. Tym razem jest to popularny 
TURBO-Pascal. Program ładujący napisano tak, że 
można go zrealizować zarówno w wersji 3.0, jak i 4.0 
tego języka. 

Po uruchomieniu program ładujący otwiera plik BU- 
DZIK.COM i wpisuje do niego kolejne bajty kodu, 
zapisane w programie w formie szesnastkowych stałych. 
Każda stała składa się z dwóch cyfr i przed przekazaniem 
procedurze Val, która przetworzy ją na liczbę typu 
Integer, jest uzupełniana na początku symbolem *$', 
będącym w TURBO-Pascalu standardowym przedrost- 
kiem liczb szesnastkowych. W razie gdyby przy .,wpal- 
cowywaniu” stałych popełniono błąd, program ładujący 
z wielkim prawdopodobieństwem wykryje ten fakt i zasy- 
gnalizuje go właściwym komunikatem. 
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JACEK RAUK 


TURBO.LIB — BIBLIOTEKA 
PROCEDUR Turbo Pascala 3.0 


Każdy użytkownik coraz bardziej popu- 
larnych u nas komputerów osobistych zgo- 
dnych ze standardem IBM PC wcześniej 
czy później odczuje potrzebę napisania 
własnego programu. Najlepszym, moim 
(i nie tylko moim) zdaniem, językiem dla 
początkującego programisty jest Pascal. 
O jego zaletach napisano już wiele, podob- 
nie jak i zaletach najpopularniejszego kom- 
pilatora tego języka — Turbo Pascala 
firmy Borland. Nawet jednak tak udany 
program ma swoje „,narowy ”': nie potrafi 
podnosić do potęgi, ma zwyczaj surowego 
karania pomyłek przy wprowadzaniu da- 
nych z klawiatury (podanie liczby rzeczy- 
wistej zamiast kropki dziesiętnej powodu- 
je. że najlepiej nawet napisany program 
bezlitośnie odmawia współpracy), nie moż- 
na kontrolować czasu systemowego (co 
bywa przydatne, gdy z jednego komputera 
korzysta kilka osób) itp. Firma Borland 
przewidziała wprawdzie szereg dodatko- 
wych tricków, których zastosowanie daje 
w efekcie w pełni „.idiotoodporny” pro- 
gram, zaś w polskiej prasie komputerowej 
opisano już wiele ułatwiających życie sztu- 
czek, trudno jednak za każdym razem 
wertować opasłą dokumentację TP lub się- 
gać po roczniki czasopism. Nawet dokład- 
ne poznanie Turbo Pascala nie zwalnia zre- 
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sztą od pracowitego wstukiwania podob- 
nych sekwencji na początku każdego no- 
wego programu. Jedynym sensownym wyj- 
ściem wydaje się stworzenie własnej biblio- 
teki najpotrzebniejszych podprogramów. 
Biblioteka Turbo.Lib powstała z proce- 
dur i funkcji, jakie znalazłem w czasie 
wertowania polskich czasopism kompute- 
rowych (,„„Informik”, „„Mikroklan”, „„Kom- 
puter”, „Bajtek”, „IKS”) wzbogaconych 
o kilka moich pomysłów. W nazwach 
i w komunikatach o błędach zdecydowa- 
łem się na język angielski. W ten sposób 
uniknąłem dziwolągów powstających przy 
pisaniu polskich słów bez polskich znaków 
diakrytycznych z osławionym komunika- 
tem — obelgą .,Blad!” na czele. Treść 
procedur i funkcji przedstawia dołączony 
listing, oto zaś krótki ich opis (w przypad- 
ku cudzych pomysłów podałem w kwa- 
dratowych nawiasach numery czasopism 
i nazwisko autora artykułu, w którym 
zawarty jest dokładny opis ich działania): 


Opis Biblioteki Turbo.Lib 


Typy: 

1. Name = string [41]; 

— zmienne tego typu to głównie nazwy 
plików (podprogramy FileExist, BackUp, 


Dir, ShowDir). By nie tworzyć nowych 
typów wykorzystałem go też do wyprowa- 
dzenia czasu i daty systemowej (funkcje 
Time, Date, Day). 

2. Files = array [1..512] of Name; 

— tablica nazw plików umożliwiająca za- 
pisanie 512 nazw (wykorzystywana w pro- 
cedurach Dir i ShowDir). 

3. FilesPtr = ”Files 

— typ wskazujący na zmienną typu Files. 


Procedury i funkcje: 


1. Procedura ErrorTL. 

Procedura ta służy wyłącznie do obsługi 
błędów, jakie powstać mogą na skutek 
złego użycia innych podprogramów biblio- 
teki (np. podniesienie zera do ujemnej 
potęgi). Jej działanie polega na wyprowa- 
dzeniu komunikatu o błędzie: 

„TURBO.LIB ERROR No. Nr_ błędu 
Program aborted. Sorry...” 
i przerwaniu działania programu. 


Podana w komunikacie wartość Nr__błędu 

oznacza odpowiednio: 

l — podanie zbyt dużego argumentu fun- 
kcji Factorial (> 33): 

2 — podanie ujemnego argumentu funk- 
cji Factorial; 


3 — zero do ujemnej potęgi w funkcji 
Power; 

4 — podanie w funkcji Power ujemnej 
podstawy i niecałkowitego wykład- 
nika potęgi. 


2. Procedura Gong. 

Wywołanie: Gong (1); 

gdzie n — wartość lub zmienna typu in- 
teger. 


Wywołanie procedury powoduje n-krotny 
sygnał akustyczny (niedodatnie wartości 
n traktowane są jak n=l). Procedura 
wykorzystana być może jako „,budzik” 
informujący o zakończeniu obliczeń lub 
wołający użytkownika programu w chwi- 
lach, gdy konieczna jest jego ingerencja. 


3i4. Procedury RealRead i RealReadln. 
Wywołanie: RealRead (x); 

RealReadln (x); 
gdzie x — zmienna typu real. 


Procedury 3 i 4 służą do ,,bezpiecznego” 
wczytywania z klawiatury wartości rzeczy- 
wistych odpowiednio bez i z przeniesieniem 
kursora do nowego wiersza. Podanie nie- 
prawidłowej (niemożliwej do zaakcepto- 
wania przez program) wartości (np. 2,0003, 
2.4.5 itp.) nie przerywa działania progra- 
mu, lecz powoduje zmazanie błędnego za- 
pisu i oczekiwanie na nowy. Towarzyszy 
temu zwracający uwagę na wystąpienie 
błędu sygnał akustyczny. W odróżnieniu 
od procedury Read i Readln wczytana 
może być tylko I zmienna. 


5i 6. Procedury IntRead i IntReadln. 
Wywołanie: Int Read (1); 

IntReadln (n); 
gdzie n — zmienna typu integer. 


Procedury 5 i 6 służą do „,bezpiecznego” 
wczytywania wartości całkowitych. Dzia- 
łanie podobne do RealRead i RealReadln. 


718. Procedury BoolRead i BoolReadln. 
Wywołanie: BoolRead (x); 

BoolReadln (x): 
gdzie x — zmienna typu Boolean. 


Procedury 7 i 8 służą do wczytywania 
wartości logicznych (np. decyzji użytkow- 
nika programu) odpowiednio bez 
— i z przeniesieniem kursora do nowego 
wiersza. Wciśnięcie klawiszy [T] (jak 
„true”, „tak”) i [Y] (jak „yes”) nadaje 
zmiennej x wartość true, zaś [F] (jak 
„false”) i [N] (jak „„no”, nie”) wartość 
false. Pozostałe klawisze są ignorowane. 


9. Funkcja Factorial (typu real). 

Wywołanie: Factorial (n); 

gdzie n — zmienna lub wartość typu in- 
teger. 


Rezultatem funkcji Factorial jest dana typu 
real równa n/ (n silnia). Ze względu na 
szybko rosnącą ze wzrostem n wartość 
funkcji n nie może być większe od 33 
i mniejsze od zera. Wykroczenie poza ten 
zakres spowoduje przerwanie programu 


i komunikat o błędzie nr 1 (n > 33) lub 
2 (n<0). 


10. Funkcja Power (typu real). 

Wywołanie: Power (a,b); 

gdzie a i b — zmienne lub wartości typu 
real. 


Rezultatem funkcji Power jest dana typu 
real będąca wynikiem podniesienia a do 
potęgi b. Dla dodatnich wartości podstawy 
a wykładnik b przyjmować może dowolne 
wartości rzeczywiste, dla a=0 wartości 
rzeczywiste nieujemne zaś dla a < 0 warto- 
ści całkowite (wartości te mogą być typu 
real nie mogą jednak zawierać części dzie- 
siętnej). Próba podniesienia zera do ujem- 
nej potęgi powoduje przerwanie programu 
i komunikat o błędzie nr 3 (procedura 
Error), zaś podniesienie wartości ujemnej 
do potęgi niecałkowitej przerwanie pro- 
gramu i komunikat o błędzie nr 4. 


11. Funkcja FileExist (typu Boolean). 

Wywołanie: FileExist (Filename); 

gdzie Filename — zmienna typu Name 
— nazwa pliku. 


Rezultatem funkcji FileExist jest wartość 
logiczna true, gdy plik o podanej nazwie 
Filename istnieje i false, gdy nie istnieje. 
Nazwa Filename zawierać może ścieżkę 
dostępu (np. Filename = "C:XTPAS- 
CALAJACEKYTURBO.LIB"). Brak ścież- 
ki dostępu powoduje szukanie pliku 
w aktualnym katalogu. 


12. Procedura BackUp. 

Wywołanie: BackUp (Filename): 

gdzie Filename — zmienna typu Name 
— nazwa pliku. 


Wywołanie procedury BackUp powoduje 
zmianę rozszerzenia nazwy pliku Filename 
na .BAK o ile plik o nazwie Filename już 
istnieje. Wywołanie procedury BackUp 
przed każdym otwarciem zbioru do zapisu 
zabezpiecza przed przypadkową utratą sta- 
rej zawartości zbioru. 


14. Procedura PrtScr. 

Wywołanie: PrtSer; 

Wywołanie tej procedury jest równoważne 
jednoczesnemu _ wciśnięciu _ klawiszy 
[SHIFT] i [PrtSc] — powoduje wydruk 
zawartości ekranu na drukarce. [R. Wa- 
cławek; INFORMIK nr 4/1987]. 


15. Funkcja PrinterOK (typu Boolean). 
Wywołanie: PrinterOk; 

Funkcja PrinterOK jest bezparametrowa. 
Rezultatem jej jest wartość logiczna true, 
gdy dołączona do komputera drukarka jest 
gotowa do pracy lub wartość false, gdy 
drukarka jest uszkodzona, brakuje papieru 
itp. [R. Wacławek; KOMPUTER nr 
3/1988]. 


16. Funkcja DDriveOK (typu Boolean). 
Wywołanie: DDriveOK (Drive); 
gdzie Drive — zmienna lub wartość typu 
char — oznaczenie stacji 
dysków elastycznych. 
Rezultatem funkcji DDriveOK jest wartość 
logiczna true, jeżeli dyskietka w napędzie 
Drive jest gotowa do odczytu i zapisu lub 
wartość false, jeżeli stacja jest otwarta, 
dyskietka nie jest sformatowana itp. [R. 
Wacławek; KOMPUTER nr 3/1988]. 


17. Funkcja Time (typu Name). 
Wywołanie: Time: 
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Funkcja Time jest bezparametrowa. Jej 
rezultatem jest dana typu Name, przed- 
stawiająca czas systemowy w postaci łań- 
cucha: 
hh.mm.ss 
gdzie hh — godzina, mm — minuty, ss 
— sekundy (np. 13:45:00 oznacza 
godzinę 13 minut 45). [R. Wacławek; 
INFORMIK nr 1/1987]. 


18. Funkcja Date (typu Name). 
Wywołanie: Date; 
Rezultatem funkcji Date jest dana typu 
Name przedstawiająca datę systemową 
w postaci łańcucha: 

rrrr.mm.dd 
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gdzie rrrr — rok, mm — miesiąc, dd 
— dzień miesiąca (np. łańcuch 
1988.07.12 oznacza 12 lipca 1988 
roku). 


19. Funkcja Day (typu Name). 
Wywołanie: Day; 

Rezultatem funkcji Day jest dana typu 
Name przedstawiająca dzień tygodnia we- 
dług daty systemowej w postaci jego angiel- 
skiej nazwy. 


20. Procedura Dir. 

Wywołanie: Dir (DirMask, pointer); 
gdzie 

DirMask — zmienna lub wartość typu 
Name, oznaczająca szablon nazw plików, 


których wykaz chcemy uzyskać (analogicz- 
nie jak w DOS-ie stosować można znaki 
* i ?, ścieżkę dostępu itp.), 

pointer — zmienna typu FilesPtr, która po 
wykonaniu procedury wskazywać będzie 
na tablicę nazw plików. 

Wywołanie procedury powoduje utwo- 
rzenie zmiennej tablicowej typu Files, 
wskazywanej przez zmienną pointer i umie- 
szczenie w niej nazw plików zgodnych 
z podanym szablonem DirMask. Nazwy te 
nie są wyświetlane na ekranie, mogą jednak 
służyć np. do analizy aktualnego katalogu, 
wyszukiwania nazw plików o podanym 
rozszerzeniu itp. Do wyświetlania katalogu 
na ekranie służy następna procedura: 
ShowDir. Tablica przechowująca nazwy 
plików zajmuje niestety dosyć dużo pamię- 
ci, którą jednak można odzyskać, wykonu- 


jąc po wykorzystaniu potrzebnych infor- 


macji przedefiniowaną w Turbo Pascalu 
procedurę Dispose(pointer). [R. Wacławek, 
INFORMIK nr 1/1988]. 


21. Procedura ShowDir. 
Wywołanie: ShowDir (DirMask); 
gdzie 
DirMask — zmienna lub wartość typu 
Name, oznaczająca szablon nazw plików, 
których wykaz chcemy uzyskać na ekranie 
(analogicznie jak w procedurze Dir). Wy- 
wołanie procedury ShowDir powoduje wy- 
świetlenie na ekranie spisu nazw plików 
zgodnych z podanym schematem Dir- 
Mask. Nazwy plików poprzedzone są ko- 
lejnym numerem i wyświetlane po cztery 
w linii. Jeżeli liczba plików przekracza 
pojemność ekranu, wtedy wyświetlanie ko- 
lejnych nazw zostaje wstrzymane, a na dole 
ekranu ukazuje się pytanie: 

More?[Y|es/[N]o 
Udzielenie odpowiedzi twierdzącej (wciś- 
nięcie klawisza [Y|]) powoduje kontynuację 
wyprowadzania nazw plików na ekran. 
Odpowiedź przecząca (wciśnięcie klawisza 
[N]) powoduje wyjście z procedury. Po 
wykonaniu procedury ShowDir pamięć 
wykorzystywana przez wywoływaną z niej 
procedurę Dir jest automatycznie odzys- 
kiwana. 

* * * 

Gotową bibliotekę wystarczy dołączyć 
na początku programu (najlepiej zaraz po 
nagłówku) dyrektywą: 

(SI Turbo.Lib; 

i spokojnie korzystać już można ze wszyst- 
kich jej podprogramów. Dołączenie biblio- 
teki zwiększa rozmiar gotowego. skom- 
pilowanego programu o 3705 bajtów. To 
chyba niezbyt wysoka cena za usługi, jakie 
może oddać. Zachęcam do rozszerzenia 
biblioteki o własne podprogramy oraz do 
tworzenia odrębnych, nastawionych na 
rozwiązywanie konkretnych problemów 
zawodowych, bibliotek. To naprawdę 
oszczędza czas. 


Przypis redakcji: 

Brak procedury o numerze 13 NIE jest spowodo- 
wany błędem drukarskim, ale względami formal- 
nymi narzuconymi przez Autora, co redakcja 
w pełni zaakceptowała. 


TURBO.LIB 1.0 
biblioteka procedur Turbo Pascala 


J .Rauk 1988 
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Name = string [41]; 
Files = array [1..512] of Name; 
FilesPtr = "Files; 


procedure ErrorTL ( n : integer ) 
4 obsluga bledow biblioteki 
4 Numery bledow: 
4 1 - argument funkcji Factorial 
zbyt duzy; 
2 - ujemny argument funcji 
Factorial; 
3 - zero do ujemnej potegi 
w funcji Power; 
4 — w funcji Power ujemna 
podstawa i niecalkowity 
wykladnik. 
begin 
Writeln; 
Writeln 
( ' TURBO.LIB ERROR No.',n:2 ); 
Write ( +*7 ); 
Writeln 
( ' Program aborted. Sorry...'); 
Halt 
end; (4 ErrorTL ) 


r mm pb pów pdm Ów Mb Ów 
W NN Nh Nh Ng a ya ma we 


procedure Gong ( n : integer ); 
( procedura powtarza n razy ? 
4 sygnal akustyczny > 
var . 
i : byte; 
begin 
If n< 1 then n := 1; 
For i := 1 to n do 
begin 
Write ( *7 ); 
Delay ( 300 ) 


end 
end; ( Gong » 
procedure RealRead ( var x : real ); 


(4 procedura wczytuje wartosc 
4 rzeczywista pozostawiajac kursor 
(w tej samej linii 


w w 


var 

OK  : Boolean; 
z,y : byte; 
begin 


z := WhereX; 
Y := WhereY; 


OK := ( IOResult = 0 ); 
If not OK then 
begin 
Gong ( 1 ); 
GotoXY ( z,y ); 
ClrEol 
end 
Until OK > 
end; ( RealRead ) 


procedure RealReadln ( var x : real ); 
4 procedura wczytuje wartosc > 
( rzeczywista i przenosi kursor > 
4 do nastepnej linii > 
begin 

RealRead ( x ); 

Writeln 

end; ( RealReadln )» 


procedure IntRead ( var x : integer ); 
( procedura wczytuje wartosc > 
( calkowita pozostawiajac kursor , 
( w tej samej linii > 
var 


OK  : Boolean; 
Z.Y : byte; 
begin 

Z := WhereX; 

y := WhereY; 


OK := ( IOResult = O ); 
If not OK then 
begin 
Gong ( 1 ); 
GotoXY ( z,Y ); 
ClrEol 
end 
Until OK 
end; 4 IntRead ) 


procedure IntReadln ( var x : integer ); 
4 procedura wczytuje wartosc calkowita ) 
( i przenosi kursor do nastepnej linii ) 


begin 
IntRead ( x ); 
Writeln 
end; 4 IntReadln )» 
procedure BoolRead ( var x  : Boolean); 


4 Procedura wczytuje wartosc logiczna 
4 pozostawiajac kursor 

(w tej samej linii 

4 znaczenie klawiszy : 

4 Po KUKE 

4 "F', "N* = false 


e m we 


var 
znak : char; 
begin 
Repeat 
Read ( Kbd,znak ); 
Case UpCase ( znak ) of 


"TY noca ĘKUG: 
"FE'"N 4% am £alBO: 
else 
Gong ( 1 ) 
end; 
Until 


UpCase ( znak ) in ['T','Y','F','N']; 
Write ( znak ) 
end; 4 BoolRead ) 


procedure BoolReadln ( var x : Boolean); 
( procedura wczytuje wartosc logiczna ) 
4 i przenosi kursor do nastepnej linii » 
4 znaczenie klawiszy ł 
4 "To" —s40E , 
4 SN GUSBAGE + 
var 
znak : char; 
begin 
Repeat 
Read ( Kbd,znak ); 
Case UpCase ( znak ) of 
R 49] xa „29% ŁKUB: 
PR'EN' 3: x.>w false; 
else 
Gong ( 1 ); 
end; 
Until 
UpCase l zako) INIT. Y ZE ,'N"]; 
Writeln ( znak ) 


end; ( BoolReadln ) 
function Factorial ( n: integer ): real; 
( funkcja liczy wartosc n! , 
begin 
If n>33 then ErrorTL ( 1 ) 
else 
If n<Q then ErrorTL ( 2 ) 
else 


If n>0 then 
factorial := n * factorial ( n-1 ) 
else 
factorial := 1 
end; (4 Factorial ) 
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function 


Power ( base,index : real ) : real; 


4 funkcja oblicza wartosc base” index 
begin 
If index = 0 then 
Power := 1 
else 
If base = 0 then 
1f index < 0 then ErrorTL ( 3 ) 
else 
Power := 0 
else 
If base > 0 then 


Power := Exp ( index * Ln( base )) 


else 
begin 


If index = Trunc ( index ) then 


begin 
If index >0 then 
Power := 


Power ( base,index-1 ) *base; 


If index <0 then 
Power := 


1/Power ( base, Abs ( index )) 


end; 


If index <> Trunc ( index ) then 


ErrorTL ( 4 ) 
end 
end; 


function 


> 


4 Power ) 


FileExist ( FileName: Name ): Boolean ; 


(4 funkcja sprawdzajaca istnienie pliku » 
, 


( o nazwie FileName 
var 
plik : file; 
begin 
Assign ( plik,FileName ); 
($I1-) 
Reset ( plik ); 
($I+) 
FileExist := ( IOResult=0 ); 
If IOResult=0 then Close ( plik ) 


end; 4 FileExist ) 


procedure BackUp ( FileName : Name ); 


4 procedura zmienia rozszerzenie 
( nazwy pliku na BAK. 
var 
plik : file; 
FN : Name; 
x : integer; 
begin 
If FileExist ( FileName ) then 
begin 
X := Pos ('.',FileName); 
If x = O then 
FN := Concat ( FileName, '.BAK' ) 
else 
begin 
FN := Copy ( FileName,1,x ); 
FN := Concat ( FN, 'BAK') 
end; 


If FileExist ( FN ) then 
begin 
Assign ( plik,FN ); 
Erase ( plik ) 

end; 

Assign ( plik,FileName ); 

Rename ( plik, FN); 


, 
> 


end 
end; 4 BackUp » 
procedure PrtScr; 


4 procedura wywoluje przerwanie nr 5 
4 - odpowiednik wcisniesia klawiszy 
4 SHIFT + PrtSc 
4 R.Waclawek INFORMIK 4/1987 
begin 

InLine ( $CD/5 ) 


> 
> 
> 
> 


end; (4 PrtScr ) 


function PrinterOK : Boolean; 
(4 funkcja testuje sprawnosc drukarki > 
4 na podst: ) 
4 R.Waclawek KOMPUTER 3/1988 > 
var 
Rejestry : record 
AL,AH,BL, 
BH,CL,CH : byte; 
DX.BP,SI, 
DI,DS,ES,flagi : integer 
end; 
OK : Boolean; 
begin 


Rejestry.AH := 2; 
Rejestry.DX := 0; 
Intr ( $17,Rejestry ); 
With Rejestry do 
begin 
If AH and $08 <>O then 
PrinterOK := false 
else 
f AH and $01 <>0 then 
PrinterOK := False 
else 
If AH and $20 <>O then 
PrinterOK := False 
else 
If AH and $10 = O then 
PrinterOK := false 
else 
PrinterOK := true 


end 
end; 4 PrinterOK » 
function 
DDriveOK ( Drive : char ) : Boolean; 
4 testuje sprawnosc napedu dyskow > 


4 na podst: 


> 
< R.Waclawek KOMPUTER 3/1988 ) 


var 
Rejestry : record 
AL,AH,BL, 
BH,CL,CH,DL,DH : byte; 
BP,SI,DI 
DS,ES,flagi : integer 
end; 
begin 


Drive := UpCase ( Drive ); 
With Rejestry do 


begin 
AH := 4; AL := 1; 
CĄ := 0; CL :* 1: 
DH := 0; 


Dl := Ord ( Drive ) — 65; 
Intr ( $13,Rejestry ): 
If AH > O then 


«begin 
AH := 4; AL := 1; 
CH ;:*-02 (Gb := F2 
DH := 0; 
Dl := Ord ( Drive ) — 65; 


Intr ( $13,Rejestry ); 
end; 
If AH > O then 
DDriveO0K := false 


else 
DDriveOK := true; 
end 
end; 4 DDriveOK » 
function Time : Name; 
4 funkcja podaje czas systemowy > 
( R.Waclawek  INFORMIK 1/1988 ł 
var 
Rejestry : record 
AL,AH,BL, 
BH.CL,CH.DL,DH : byte; 
BP,SI.DI, 
DS,ES,flagi : integer 
end; 


h.m,s : string [2]; 
begin 
Rejestry.AH := $2c; 
MsDos ( Rejestry ):; 
With Rejestry do 
begin 


Str ( DH,s 
end; 
If Length ( m ) = 1 then m := '0'+m; 
If Length ( s ) = 1 then s := '0'+s; 
Time := h+': '+m+':'+s 


end; ( Time ł 
function Date : Name; 
4 funkcja podaje date systemowa > 

var 

Rejestry : record 
AL.AH,BL,BH : byte; 
cx : integer; 
DL,DH : byte; 
BP,SI, 
DI.DS,ES,flagi : integer 
end; 

mm, dd : string[2]; 

Y : string[4]; 

begin 


Rejestry.AH := $2a; 
MsDos ( Rejestry ); 
With Rejestry do 
begin 
Str ( DL,dd ); 
Str ( DH,mm ); 
Str+l(<CX,-Y 3: 
end; 
If Length ( mm ) = 1 then 
mm := '0'+mm; 
If Length ( dd ) = 1 then 
dd := '0'+dd; 
Date := y+'.'+mm+'. '+dd 


end; 4 Date ) 
function Day : Name; 
( funkcja podaje dzien tygodnia > 
(wg. daty systemowej ł 
var 
Rejestry : record 
AL,AH,BL,BH : byte: 
cx : integer; 
DL,DH : byte; 
BP,SI, 
DI,DS,ES,flagi : integer 
end; 
begin 


Rejestry.AH := $2a; 
MsDos ( Rejestry ); 
Case Rejestry.AL of 


0 : Day := 'Sunday .: 
1 : Day := 'Monday 15 
2 : Day := 'Tuesday '; 
3 : Day := 'Wednesday'; 
4 : Day := 'Thursday '; 
5 : Day := 'Friday eż 
6 : Day := 'Saturday '; 
end 
end; 4 Day » 
procedure > 


Dir ( DirMask: Name;var D: FilesPtr ); 
Procedura znajduje nazwy plikow > 
zgodnych z szablonem DirMask > 
i umieszcza je w tablicy , 
wskazywanej przez zmienna FilesPtr ) 

ł 

> 


ma mam Pó pł Pd 


na podst 


4 R.Waclawek INFORMIK 1/1988 
var 
LastFile,i : integer; 
DTA : array [0..42] of char; 
Rejestry : record 
AL,AH : byte; 
BX,CX,DX,BP, 
SI.DI,DS,ES, 
flagi : integer 
end; 


procedure NextFile; 
vać . 
No : integer; 
begin 
LastFile := LastFile + 1; 
No := 30; 
While DTA [ No ] <> +0 do 
begin 
D*[LastFile] :=D*[LastFile]+DTA[No] ; 
No := No + 1 


end 
end; (4 NextFile ) 
4 poczatek procedury Dir 
begin 
New ( D ); 
For i := 1 to 512 do 
Dolio" 


DirMask := DirMask + +0; 
LastFile := 0; 
With Rejestry do 
begin 
DS := Seg ( DTA ); 
DX := Ofs ( DTA ); 
CX := 0; 
AH := $1A; 
MsDos ( Rejestry ); 
DS := Seg ( DirMask [1] ); 
DX := Ofs ( DirMask [1] ); 
AH := $4E; 
MsDos ( Rejestry ); 
If AL = O then 
Repeat 
NextFile; 
AH := $4F; 
MsDos ( Rejestry ) 
Until 
(AL <>0 ) or ( LastFile = 512 ) 
end 
end; (Dir )» 


procedure ShowDir ( DirMask : Name ); 
( Procedura wyswietla na ekranie liste ) 
( plikow o nazwie zgodnej z szablonem ») 


4 DirMask > 
var 
i : integer; 


OK : Boolean; 
a + FILGBPLr; 
begin 
Writeln; 
Dir ( DirMask,a ); 
i := 1; 
Writeln ( 'Dir Mask : ',DirMask ); 
Writeln; 
Sia” [1] «1 hon 
Writeln ( ' No Files ! '); 
While a* [i] <> '' do 
begin 
Tf Pos ( *.'.a (3) 3) = 0 then 
s [3] SW FATF": A 
Wrżte ( .1:5,8% (1]:15 ); 
If i mod 80 = O then 
begin 
Writeln; 
Write (' More ? [Yles/[N]o '); 
Boolreadln ( OK ); 
If not OK then 
begin 
Dispose ( a ); 
Exit 
end 
else Writeln; 


end; 
Dispose (a ); 
a := nil 
end; ( ShowDir » 
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MIKROKOMPUTER 
JUNIOR — 


pamięć dyskowa 


WŁADYSŁAW STRUGAŁA 


Każdego użytkownika mikrokompute- 
ra, jeśli tylko miał możliwość porównania 
komfortu pracy komputera wyposażonego 
w stację dysków i komputera z magneto- 
fonem jako zewnętrzną pamięcią masową, 
nie trzeba przekonywać o zaletach pierw- 
szego rozwiązania. Mikrokomputer szkol- 
ny Elwro 800-2 Junior ma możliwość pracy 
zarówno z magnetofonem, jak i ze stacją 
dysków elastycznych 5.25” — dwa napędy 
(ang. Floppy Disk Drive, w skrócie FDD) 
po 720 KB! 

Junior produkowany jest w dwóch wer- 
sjach: nauczycielskiej i uczniowskiej. Za- 
równo pierwsza, jak i druga wersja mają 
możliwość współpracy ze stacją dysków. 
Standardowo jednak (ze względu na znacz- 
ny koszt stacji) tylko komputer nauczyciel- 
ski może bezpośrednio z nią współpraco- 
wać. Komputery uczniowskie natomiast, 
mogą korzystać ze stacji poprzez sieć kom- 
puterową JUNET. 


Struktura zapisu informacji na dyskach 


Podstawowe parametry pamięci dysko- 
wej mikrokomputera Elwro 800 Junior: 
. Dwie strony dysku: 0 i 1. 
. Każda strona ma 80 ścieżek. 
Każda ścieżka posiada 90 sektorów. 
. Każdy sektor ma długość 512 bajtów. 
Tzw. rekord jest umowną jednostką 
długości zbioru. Jeden rekord to 128 
bajtów. Jeden sektor zawiera 4 rekordy. 
Sektor jest najmniejszą porcją informa- 
cji, którą fizycznie można odczytać lub 
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zapisać na dysku. Na jednej ścieżce mieści 
się więc dokładnie 9-512 = 4608 bajtów, 
czyli 4,5 KB informacji. Na jednej stronie 
mamy wobec tego 80:9 = 720 sektorów, 
czyli 80-4,5 =360 KB, a na całym dysku 
2-720 = 1440 sektorów, czyli 2-360 = 720 
KB. Jest to pojemność maksymalna dysku. 
W rzeczywistości do dyspozycji użytkow- 
nika pozostaje mniej ze względu na wyko- 
rzystanie niektórych obszarów dysku na 
informacje systemowe (i nie tylko). 
Dyskowy system operacyjny Juniora 
wymienia informacje ze stacją w porcjach 
zwanych blokami. Jeden blok to 2 KB. 
Blok zajmuje na dysku fizycznie 4 sektory. 
Na pojedynczej ścieżce mieści się wobec 
tego 2'/, bloku. Jeden blok może zajmo- 
wać miejsce w całości na jednej ścieżce, jak 
również może być „„rozrzucony” na dwóch 
ścieżkach (i na dwóch stronach!) dysku. 
Odpowiednich przeliczeń, gdzie fizycznie 
na dysku znajduje się określony blok, do- 
konuje w sposób niewidoczny dla użyt- 
kownika — system operacyjny w czasie 
zapisu lub odczytu informacji. 
Oczywiście użytkownik komputera nie 
musi pamiętać, w których blokach zapisa- 
ny jest jego program czy dane. To także 
załatwia za niego system operacyjny. Do 
wczytania lub zapisu programu lub danych 
wystarcza nazwa (pliku, zbioru). 
Dysk podzielony jest na kilka zarezer- 
wowanych obszarów: 
1. Naścieżce 0 (numeracja ścieżek od 0 do 
79), na stronach 0 i I zapisywany jest 
system operacyjny CP/J. 
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. Na ścieżce 1 na stronie 0 i w sektorach 
od l do 7 (numeracja sektorów na 
ścieżce od 1 do 9) na ścieżce | na stronie 
I (16 sektorów czyli 4 bloki) zapisany 
jest tzw. katalog dysku (ang. directory). 

3. Od sektora 8 na ścieżce I na stronie 
| rozpoczyna się obszar przeznaczony 
na dane użytkownika. 

Każdy zbiór użytkownika opisany jest 
w katalogu dysku w tzw. tablicach FCB 
(ang. File Control Block). Swuktura FCB 
opisana jest dokładnie w instrukcji kom- 
putera. Pojedynczy zbiór użytkownika mo- 
że być opisany przez jedną lub więcej tablic 
FCB (zależy to od wielkości danego zbio- 
ru). Pojedyncza tablica FCB składa się z 32 
bajtów. W skrócie jej struktura jest na- 
stępująca: 

I. Bajt nr 0 — numer użytkownika lub 
ESh, jeśli zbiór jest skasowany. Umo- 
żliwia identyfikację zbiorów poszcze- 
gólnych użytkowników sieci JUNET. 

. Bajty 1. .1l — nazwa zbioru (8 bajtów) 
z rozszerzeniem (3 bajty) (razem 11 
bajtów). 

3. Bajt 12— numer tablicy FCB opisującej 
dany zbiór. Pierwsza tablica FCB zbio- 
ru zawiera tutaj nr 0. Jeśli zbiór jest 
dłuższy niż 16 KB, wówczas opisany jest 
także w kolejnych tablicach FCB. Bajt 
12 w następnych tablicach zawiera 
wówczas kolejne liczby 1, 2 itd. Zbiór 
o długości 16..32 KB opisany jest 
w dwóch tablicach FCB, 32..48 KB 
w trzech. Dłuższe zbiory raczej nie wy- 
stępują ze względu na ograniczenie pa- 
mięci operacyjnej komputera Junior. 

. Bajty 13. . 14 są zarezerwowane. 

5. Bajt 15 podaje długość zbioru (lub frag- 
mentu zbioru) opisanego daną tablicą 
FCB w rekordach. 

6. Bajty 16. .31 zawierają numery bloków, 
w których zapisany jest zbiór (lub frag- 
ment zbioru) opisany daną tablicą FCB. 
Każdy numer bloku zajmuje dwa bajty 
w tablicy. Jedna tablica FCB może więc 
opisywać zbiór (lub fragment zbioru) 
o wielkości maksimum 8 bloków, czyli 
16 KB. 

Katalog dysku zajmuje 8 KB (4 bloki 
— numery od 0 do 3). Może więc pomieścić 
256 tablic FCB. Jeżeli każdy zbiór opisany 
byłby jedną tablicą FCB i miałby długość 
maksymalnie 2 KB, wówczas wykorzy- 
stując tylko 256-2=512 KB nominalnej 
pojemności dysku można go całkowicie 
wypełnić. Najkrótszy nawet zbiór (1 bajt) 
zajmuje na dysku 1 blok (2 KB) i jedną 
tablicę FCB. Należy mieć to na uwadze 
i — w miarę możliwości oczywiście — nie 
„zaśmiecać” dysku bardzo krótkimi zbio- 
rami. 

Mikrokomputer Junior ma dwa tryby 
pracy: ZX Spectrum i CP/J. W trybie 
ZX Spectrum ze stacji dysków może korzy- 
stać bezpośrednio jedynie komputer, który 
wyposażony jest w płytkę tzw. kontrolera 
(sterownika) stacji dysków (ang. (Floppy 
Disc Controller, w skrócie FDC), i do 
którego jest ona podłączona (zwykle nau- 
czycielski). Odczyt i zapis zbiorów dokonu- 
je się wówczas przy pomocy poleceń o skła- 
dni podobnej jak przy współpracy z mag- 
netofonem tzn. LOAD, MERGE, SAVE. 
Po słowach tych należy jedynie umieścić 
gwiazdkę *%, a nazwa zbioru nie może mieć 
więcej jak 8 znaków. 

Dodając po nazwie CODE informujemy 
komputer, że chodzi o zbiór bajtów, 
DATA — zmienne i tablice (jak w przypad- 
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ku magnetofonu). Na podstawie tych in- 
formacji system operacyjny w trybie 
ZX Spectrum dokonuje zapisu lub odczytu 
zbioru określonego typu (z odpowiednim 
rozszerzeniem nazwy). W tablicach FCB 
zbiory typu ZX Spectrum posiadają roz- 
szerzenia nazwy PRG, COD, ARR, STR. 

Pierwsze bloki zbiorów typu ZX Spec- 
trum zawierają zawsze na początku znane 
użytkownikom komputera ZX Spectrum 
nagłówki o identycznej jak w przypadku 
magnetofonu długości (17 bajtów) 1 struk- 
turze. 

Jeżeli zapisujemy na dysk w trybie 
ZX Spectrum zbiór np. bajtów o długości 
dokładnie 2 KB, to zostanie on fizycznie 
zapisany w dwóch blokach (bo 17 bajtów 
nagłówka + 2 KB danych to już więcej niż 
2 KB). W pierwszym bloku zostanie zapi- 
sany najpierw nagłówek (17 bajtów), a na- 
stępnie 2048-17-2031 bajtów danych. 
W drugim bloku umieszczone zostanie 
pozostałe 17 bajtów danych. 

Normalnie użytkownik komputera nie 
ma możliwości „podglądania informacji 
zapisanych np. na ścieżkach systemowych 
lub w katalogu dysku. Może jedynie zapi- 
sywać, czytać lub kasować zbiory o okre- 
ślonej nazwie, lub też czytać nazwy i nie- 
które parametry zbiorów zapisane w kata- 
logu dysku (polecenia DIR — w trybie 
ZX Spectrum i CP/J — czy XDIR w trybie 
CPJJ). Jednakże pisząc odpowiednie proce- 
dury w kodzie maszynowym można czytać 
lub zapisywać dowolne obszary na dyskach 
Juniora, a także na dyskach zapisanych 
w innych formatach (np. 360 KB IBM)! 


Struktura pamięci operacyjnej 
ELWRO 800-2 Junior 


Chcąc wykonywać nietypowe operacje 
dyskowe należy poznać strukturę pamięci 
operacyjnej Juniora. 


Komputer wyposażony jest w 64 KB 
pamięci RAM oraz 24 KB ROM. 

Pamięć RAM zajmuje oczywiście pełny 
obszar przestrzeni adresowej procesora 
Z80. Pamięć ROM podzielona jest na dwa 
bloki: 16 KB głównej pamięci ROM zaj- 
mującej adresy od żł0 do $F3FFF, oraz 
dodatkowy ROM 8 KB w obszarze od ż0 
do Ż1FFF. 

Jak więc widać w obszarze adresowym 
+:0..4F1FFF  egzystują jednocześnie 
RAM i oba ROM-y, a w obszarze 
+2000..4;3FFF — RAM i ROM pod- 
stawowy. Aby uniknąć kolizji jednoczes- 
nego dostępu do różnych pamięci, Junior 
wyposażony jest w odpowiedni mechanizm 
dynamicznego przełączania różnych ban- 
ków (stron) pamięci operacyjnej. Oczywiś- 
cie normalnie użytkownik nie musi wie- 
dzieć, który z bloków pamięci jest aktyw- 
ny. Znowu robi to za niego system opera- 
cyjny. Dla dalszych rozważań należy jed- 
nak wiedzieć kiedy i które obszary pamięci 
są aktywne. 

W trybie ZX Spectrum struktura pamię- 
ci jest następująca: 

Główna pamięć RAM 44000. .żĘFFFFF 
(jak w ZX Spectrum). Obszar RAM 
+2000..;F3FFF wykorzystywany jest 
przez system operacyjny (niewidocznie dla 
użytkownika) przy operacjach ze stacją 
dysków oraz operacjach sieciowych. Nato- 
miast RAM od +0 do ŻF1FFF w trybie 
ZX Spectrum jest nie wykorzystany. 

Główny ROM 16 KB zawiera zmodyfi- 
kowany system operacyjny ZX Spectrum. 
Zmienione są np. komunikaty błędów, 
wzorce znaków, procedury obsługi dru- 
karki, procedury obsługi przerwań (cał- 
kowicie zmieniono procedurę przerwania 
niemaskowalnego I, rozszerzono procedu- 
rę obsługi przerwania maskowalnego). 
Wykorzystano też ROM w obszarze 
+386E..+:3CFF, który w ZX Spectrum 


był nie używany. Zasadnicze procedury 
obsługi magnetofonu są identyczne jak 
w ZX Spectrum. Jedynie na ich początku 
system sprawdza, czy chodzi w danym 
momencie o transmisję w: sieci Junet, na 
dysk czy też na magnetofon. Zawartość 
głównego ROM-u Juniora można odczyty- 
wać przez np. PRINT PEEK adres oraz 
zdekodować korzystając z dowolnego 
deasemblera ZX Spectrum. 

ROM dodatkowy 8 KB zawiera przede 
wszystkim procedury obsługi stacji dys- 
ków, procedury obsługi sieci komputero- 
wej, oraz inne jak np. sprawdzanie kon- 
figuracji komputera (ze stacją czy bez), 
odczyt swojego numeru komputera (każdy 
Junior ma zakodowany swój numer), wy- 
druk na ekranie komunikatu początkowe- 
go po włączeniu zasilania Juniora lub po 
instrukcji NEW, itd. Normalnie ROM 
ten jest niedostępny dla użytkownika 
tzn. nie można go odczytać np. przez 
PRINT PEEK adres. 

W trybie CP/J aktywna jest cała pamięć 
RAM 64 KB. W operacjach dyskowych 
system korzysta z procedur zawartych 
w ROM dodatkowym. 


Mechanizm przełączania bloków pamięci 


W Juniorze do przełączania bloków pa- 
mięci zarezerwowano jeden z możliwych 
adresów urządzeń wejścia-wyjścia. Wyko- 
nując instrukcję OUT (adres),A, przy czym 
adres = 247 (+:F7) dokonywać można 
przełączania różnych bloków pamięci 
ROM i RAM. O tym, który blok pamięci 
ma zostać uaktywniony decyduje zawar- 
tość akumulatora A. Umiejętne wykorzys- 
tanie instrukcji OUT (3+£F7),A umożliwia 
także inne „.sztuczki” jak np. możliwość 
sprawdzenia numeru komputera czy zmia- 
na położenia ekranu w pamięci. 








Zbyt wiele złego napisano o mikrokom- 
puterze edukacyjnym ELWRO 800 Junior, 
by nie wzbudzić zainteresowania tą „cał- 
kowicie oryginalną! (cytat ze wstępu do 
„Podręcznika użytkownika mikrokompu- 
tera ELWRO 800 Junior”) konstrukcją 
rodzimych naukowców z Zakładu Badań 
Operacyjnych i Systemów Komputero- 
wych Instytutu Automatyki Politechniki 
Poznańskiej. 

Pierwsze spotkanie jest bardzo miłym 
rozczarowaniem. JUNIOR jawi się jako 
urządzenie o solidnej, budzącej zaufanie 
budowie. Całość utrzymana jest w kon- 
wencji czarno-białej, tzn. biała obudowa 
(przypomina coś, co można było nabyć 
w sklepach muzycznych) i czarna, wyraź- 


nie opisana kontaktronowa klawiatura 
składająca się z trzech pól: alfanumery- 
cznego (łącznie z polskimi znakami dia- 
krytycznymi), funkcyjnego i pola kurso- 
rów. Obok znajduje się duża dioda syg- 
nalizująca czerwonym kolorem pracę 
urządzenia. Włącznik sieciowy znajduje 
się z prawej strony obudowy, z tyłu zaś 
znajdujemy gniazda pozwalające na ko- 
munikację mikrokomputera ze światem 
zewnętrznym. Umożliwiają one przyłą- 
czenie monitora monochromatycznego, 
monitora kolorowego (RGB), magneto- 
fonu kasetowego (gniazdo diodowe), dru- 
karki, manipulatora drążkowego, pióra 
świetlnego i myszki; jako opcja przewi- 
dziane jest gniazdo do pamięci dyskowej 
2*5,25'. Ponadto są dwa gniazda do 
przyłączenia sieci JUNET, gniazdo do 
podłączenia sieci mikrokomputerów ZX 
Spectrum (w przypadku testowanych mi- 
krokomputerów były one puste!) i duży 
przycisk RST (z ang. RESET) służący do 
sprzętowego zerowania mikrokompute- 
ra. Mimo zapowiedzi w instrukcji, brak 
jest gniazda umożliwiającego podłącze- 
nie odbiornika TV. Wszystkie gniazda są 
wyraźnie opisane i trudno je pomylić. 
Po włączeniu zasilania na ekranie po- 
jawia się oryginalna winieta (por. rysu- 
nek) informująca użytkownika o stanie 
zasobów mikrokomputera (24 KB pamię- 
ci ROM i 64 KB pamięci RAM) oraz 


o obecności (lub jej braku) stacji dysków. 
W tym stanie mikrokomputer pracuje pod 
kontrolą znajdującego się w pamięci 
ROM systemu (według nomenklatury in- 
strukcji jest to „system rezydentny inter- 
pretera języka BASIC'') w dużej mierze 
zgodnego z popularnym systemem 
znajdującym się w mikrokomputerze 
ZX Spectrum i jego pochodnych. Brak na 
klawiszach opisów charakterystycznych 
dla ZX Spectrum słów kluczowych wska- 
zuje, że nie jest zgodne z zamysłem 
konstruktorów, by JUNIOR „udawał 
ZX Spectrum. Raczej jest to wyjście ku 
tym, którzy zgromadzili dużą ilość pro- 
gramów na ten, tak w Polsce popularny, 
mikrokomputer (pracują one na JUNIO- 
RZE bez problemów, kłopoty mogą się 
pojawić przy współpracy z drukarką lub 
gdy program wykorzystuje przerwania). 
Jest to decyzja ze wszech miar słuszna. 
Tym, którzy koniecznie będą chcieli pisać 
programy w języku ZX BASIC proponuję 
używanie programu BetaBasicv.3.0., któ- 
ry — między innymi — oferuje opcję 
pozwalającą na wpisywanie słów kluczo- 
wych ,„literka po literce”'. Oryginalny sys- 
tem ZX Spectrum został uzupełniony 
o funkcje pozwalające na komunikowa- 
nie się mikrokomputerów między sobą 
(LOAD ,SAVE ,MERGE  iDISPL , 
gdzie poznaku " "' musi wystąpić adres 
mikrokomputera w sieci) i ze stacją dys- 
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Zawartości akumulatora i odpowiadają- 
ce im warianty pamięci zawiera tabela I. 
Krótki program w asemblerze 280 umoż- 
liwiający odczytanie numeru komputera 
pokazano na wydruku 1. Po zasemblowa- 
niu i umieszczeniu kodu wynikowego w pa- 
mięci, wykonując PRINT USR 60000 
otrzymamy na ekranie numer komputera, 
na którym pracujemy. 

Niestety nie jest możliwe włączenie peł- 
nej pamięci RAM z obrazem ZX Spectrum 
tzn. pod adresem +:4000. Można nato- 
miast wykonując w ZX Spectrum BASIC 
OUT 247,40 przełączyć ekran ZX Spec- 


trum na CP/J (oczywiście dotyczyto jedy- 
nie wyświetlania obrazu — wszystkie pro- 
cedury obsługi ekranu np. PRINF. CLS, 
itd., będą dalej działać tylko nałekranie 


ZX Spectrum). 

Przełączanie bloków pamięci można 
oczywiście wykonać także innymi instruk- 
cjami OUT procesora Z80, pamiętając je- 
dynie, aby na mniej znaczącej części ad- 
resowej umieścić wartość F7. Możliwe jest 
również wykonanie w ZX Spectrum BA- 
SIC instrukcji OUT 247, argument, jed- 
nakże należy w tym przypadku zwrócić 
baczną uwagę na argument operacji OUT! 
W zasadzie możliwe jest jedynie wykonanie 
OUT 247,40 (zmiana ekranu) i OUT 
247,168 (pełny RAM), przy czym uprzed- 
nio należy umieścić w odpowiednim miejs- 
cu RAM procedurę, która na końcu będzie 
posiadała instrukcję (oczywiście już w ko- 
dzie wewnętrznym Z80) OUT 247,8. Po jej 
wykonaniu nastąpi powrót do sytuacji 
wyjściowej (ROM podstawowy, RAM 
+:4000..+:FFFF). W wydruku 2 przed- 
stawiono krótki program w asemblerze 
Z80, który umożliwia kopiowanie pa- 
mięci RAM ++2000..4:3FFF do RAM 
++8000..++9FFF w niecodzienny sposób 
przez OUT 247,168. Program po asem- 
blacji należy uruchomić instrukcją (np.) 


RANDOMIZE USR 60000. Po urucho- 
mieniu nastąpi wpisanie do pamięci RAM 
od adresu żF 1E7A odpowiedniego kodu. 
Procedura OUT w ZX Spectrum BASIC 
znajduje się dokładnie pod adresem 
+: 1E7F i w tym właśnie miejscu w pamięci 
RAM znajdzie się początek procedury ko- 
piującej. 

Program tam umieszczony nie ulega zni- 
szczeniu nawet po wykonaniu sprzętowego 
kasowania! 

Uwaga! 

Nieostrożne wykonanie OUT 247 (szcze- 
gólnie w ZX Spectrum BASIC, lecz również 
w kodzie wewnętrznym) z reguły powoduje 
unieruchomienie komputera! 

Korzystając z mechanizmu przełączania 
bloków pamięci można przepisać odpowie- 
dnią procedurą w kodzie maszynowym 
zawartość ROM-u dodatkowego lub też 
RAM-u z obszarów ź0..$F3FFF do 
RAM-u w innym miejscu i następnie np. 
analizować procedury zawarte w ROM-ie 
dodatkowym. 

Procedura w asemblerze Z80 pokazana 
na wydruku 3 przepisuje ROM dodatkowy 
do wolnej pamięci RAM. 

Po wpisaniu powyższego programu za 
pomocą dowolnego asemblera dla 
ZX Spectrum, po wykonaniu asemblacji 
i umieszczeniu kodu wynikowego pod ad- 
resem 60000 d uruchomić go można przez 
(np.) RANDOMIZE USR 60000. W ob- 
szarze 32768. .40960 (8000. .+-9FFF) 
znajdzie się kopia ROM-u dodatkowego, 
którego zawartość można teraz analizo- 
wać. Oczywiście program można umieścić 
w innym miejscu pamięci (inny argument 
dyrektywy ORG). Podobnie kopia ROM- 
-u także może być umieszczona w innym 
miejscu (ADR0). Podstawiając za ADRI 
zamiast ż: 0 wartość ż 2000 możemy w ten 
sam sposób skopiować RAM z obszaru 
+: 2000..++3FFF. 


W obszarze +2000..4F3FFF pamięci 
RAM w trybie ZX Spectrum znajdują się 
bufory oraz zmienne systemowe używane 
przy operacjach dyskowych i sieciowych. 
Nie wykorzystany (w trybie ZX Spectrum) 
obszar RAM 40. .ż: 1FFF można wyko- 
rzystać jako RAM-dysk. Także obszar 
+: 2000..++3FFF można wykorzystać ja- 
ko RAM-dysk, jeśli nie używa się pamięci 
dyskowej i sieci komputerowej. Można do 
tego wykorzystać analogiczne procedury 
jak powyżej, jedynie w linii 60 należy 
zmienić argument instrukcji LDA,ŻFA8 
(pełny RAM), a także ustawić odpowied- 
nie adresy źródła i przeznaczenia danych 
oraz potrzebną długość bloku. Można 
w ten sposób np. zapamiętywać i wywoły- 
wać ekran nie zajmując przy tym głównej 
pamięci RAM. 


Pamięć RAM ++2000..ż+3FFF 
w operacjach dyskowych 


Wszystkie systemowe operacje dyskowe 
Juniora w trybie ZX Spectrum wykorzys- 
tują obszar RAM ++ 2000..2F3FFF. Wy- 
kaz niektórych zmiennych i bloków tego 
obszaru zawiera tabela II. Ponadto 
w zmiennej systemowej nie wykorzystanej 
w ZX Spectrum pod adresem 23678 
(+: 5CBO) bit 0 ustawiony informuje inter- 
preter Junior BASIC o operacji dyskowej, 
a bit I o operacji sieciowej. 


Procedury dyskowe 
zawarte w pamięci ROM 


Niektóre z wielu procedur zawartych 
w ROM-ie dodatkowym (8 KB), które 
mogą być wykorzystane przez użytkow- 
ników we własnych programach w kodzie 
wewnętrznym Z80 zamieszczone są w ta- 
beli III. 


ków (LOAD*, SAVE* i MERGE*). Moż- 
liwe jest również wyprowadzenie na ek- 
ran katalogu dysku (DIR lub DIR nrstacji, 
co równocześnie czyni wskazany dysk 
aktywnym) i przywołanie właściwego dla 
JUNIORA systemu dyskowego CP/J. 

Jak już wspomniano, bez stacji dysków 
elastycznych i organizacji sieci JUNET, 
JUNIOR jest tylko rozbudowaną wersją 
ZX Spectrum. Prawdziwe oblicze odkry- 
wa, gdy przy pełnej konfiguracji wprowa- 
dzi się zlecenie CP/J. Powoduje to od- 
łączenie pamięci ROM na rzecz pamięci 
RAM i... otrzymujemy zestaw skomuni- 
kowanych ze sobą mikrokomputerów 
pracujących pod kontrolą systemu zgod- 
nego z najpopularniejszym na świecie 
dyskowym systemem operacyjnym dla 
ośmiobitowych mikrokomputerów, jakim 
jest CP/M 2.2 (ang. Control Pro- 
gram/Monitor). Komunikację między mi- 
krokomputerami połączonymi w sieć 
oraz stacją dysków zapewnia program 
nadzorujący o nazwie JUNET rezydujący 
w wyróżnionym mikrokomputerze, zwa- 
nym nauczycielskim. Sieć tworzy mikro- 
komputer nauczycielski z przyłączoną 
stacją dysków elastycznych i do piętnas- 
tu mikrokomputerów (tzw. uczniowskich), 
niektóre z nich mogą być również wypo- 
sażone w indywidualne stacje dysków 
elastycznych (o ile wyposażone są w mo- 
duły sterowników dysków). 
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Każdy z uczniów ma dostęp do stacji 
dysków przyłączonej do mikrokomputera 
nauczycielskiego, gdzie znajdują się 
dwojakiego rodzaju zbiory: typu PUBLIC, 
a więc ogólnie dostępne (np. programy 
użytkowe), ale zabezpieczone przed do- 
konywaniem zmian; i typu LOCAL, czyli 
zbiory dostępne jedynie przez wskazany 
mikrokomputer (zwykle zbiory kreowane 
przez ucznia) i możliwe do dalszej mody- 
fikacji. Tak więc każdy z uczniów ma swój 
prywatny katalog różny od sąsiadów mi- 
mo korzystania z tej samej stacji dysków. 
Skutecznie chroni to przed kolizjami przy 
dostępie do zbiorów. 

Operator mikrokomputera nauczyciel- 
skiego ma możliwość pełnej kontroli pra- 
cy uczniów. Przede wszystkim bez ogra- 
niczeń dostępne są wszelkie zbiory na 
dyskach. Nauczyciel może kontrolować 
katalog dyskietki, jak i katalog dowolnie 
wybranego jej użytkownika (czyli ucznia), 
może przeglądać zawartości wybranych 
plików i je drukować. Dalej przewidziano 
możliwość podglądu ekranu monitora 
wskazanego ucznia oraz wysyłania do 
uczniów komunikatów. Można wreszcie 
rozesłać do określonej grupy uczniów 
wybrany program (tu ograniczenie: ob- 
jętość rozsyłanego programu nie może 
przekraczać 32 KB) lub system operacyj- 
ny CP/J do tych mikrokomputerów, w któ- 
rych nie był on zainstalowany. 


Adresowanie mikrokomputerów ucz- 
niowskich odbywa się za pomocą adre- 
sów sieciowych lub identyfikatorów. Każ- 
demu użytkownikowi (0. . 15) przyporząd- 
kowany jest jednoznacznie jego adres 
sieciowy (16. .63), dokonuje się tego dla 
konkretnej sieci raz za pomocą zlecenia 
INSTAL. Oprócz tego (dla danej grupy 
użytkowników, np. klasy) można użytko- 
wnikom przypisać identyfikatory (np. na- 
zwiska), co czyni komunikację z uczniami 
bardziej naturalną. Każda klasa może 
mieć swój indywidualny zbiór identyfika- 
torów, które przechowywane są na dysku 
elastycznym, i mogą być wprowadzone 
do pamięci mikrokomputera nauczyciel- 
skiego podczas zarządzania siecią JU- 
NET. Wydaje się jednak, że to potrójne 
przyporządkowanie (przy rozsyłaniu pro- 
gramów trzeba posługiwać się adresami 
grupowymi) może niektórym nauczycie- 
lom sprawiać trudności. Obsługa progra- 
mu nadzorującego sieć JUNET nie stwa- 
rza większych problemów, choć niektóre 
komunikaty są zbyt lakoniczne, pojawiają 
się w dziwnych miejscach, a nawet moż- 
na doprowadzić przez nieuwagę do dez- 
organizacji pracy mikrokomputera nau- 
czycielskiego. 

Na dołączanym do sieci systemowym 
dysku oprócz systemu CP/J, procedur 
składających się na zestaw zleceń niere- 
zydentnych systemu i procedury JUNET 


Komunikacja systemu 
ze sterownikiem stacji 


„Pośrednikiem” pomiędzy mikrokom- 
puterem Junior a pamięcią dyskową jest 
układ scalonego sterownika stacji dysków 
elastycznych NEC uPD 765 (odpowiednik 
INTEL 8272) — układ ten jest również 
stosowany w komputerach IBM PC 
XT/AT. Opis tego układu został zamiesz- 
czony w numerze 1/1988 czasopisma „„Mi- 
kroklan”. Układ uPD 765 może pracować 
w dwóch trybach — tzw. DMA (bezpośre- 
dni zapis-odczyt pamięci z pominięciem 
procesora komputera) oraz NON-DMA 
(procesor zapisuje i odczytuje dane ze 
sterownika). W Juniorze wybrano drugi 
tryb. 

Procesor Z80 komunikuje się ze sterow- 
nikiem za pośrednictwem trzech portów: 
++ EF, H EE oraz ŻEF1. 

Przez OUT (4£F1),A (A musi posiadać 
odpowiednią zawartość), procesor włącza 
i wyłącza jeden z dwóch napędów stacji 
(stacja Juniora jest podwójna). 

Przez port ŻĘEF procesor wysyła do 
sterownika (OUT) kody poleceń i dane, 
odbiera natomiast dane odczytane z dysku 
(IN). 

Przez port +; EE procesor odczytuje (IN) 
ze sterownika jego główny rejestr stanu. 
W rejestrze stanu najważniejszy jest stan 
bitu 7, który informuje (po uaktywnie- 
niu jednego z dwóch napędów przez 
OUT (3Ę$F1),A o gotowości sterownika 
i stacji do działania. 


Przykłady niestandardowych procedur 
obsługi stacji 


Wydruki 4 i 5 przedstawiają dwa przy- 
kłady procedur zapisu-odczytu pamięci dy- 
skowej Juniora. 


Pierwsza z nich (wydruk 4) pozwala na 
odczytanie lub zapisanie dowolnego bloku 
na dysku (umożliwia np. bezpośredni od- 
czyt katalogu dysku, odczyt pierwszych 
bloków typu ZX Spectrum, w których 
— pierwsze 17 bajtów — zawarty jest 
nagłówek zbioru), a także czytanie w trybie 
ZX Spectrum zawartości zbiorów typu 
„nie-Spectrum” (CP/J). 

Druga (por. wydruk 5) umożliwia odczyt 
i zapis dowolnego sektora. Za jej pomocą 
można odczytywać normalnie ukryte dla 
użytkownika ścieżki systemowe (Ścieżka 
0 na stronach 0 i 1)! Ponadto pozwala na 
odczyt (i zapis) dysków zapisanych w in- 
nych formatach niż Junior! 

W procedurze odczytu-zapisu bloku 
(wydruk 4) w komórce NRDYS (60040) 





należy umieścić numer napędu stacji (0 lub 
1). W komórce KODOP (60041) należy 
wpisać 4, jeśli chcemy odczytać blok, lub 
też 6, jeśli chcemy zapisać blok. Dwie 
komórki NRBLK (60043) powinny zawie- 
rać numer bloku, który zamierzamy od- 
czytać lub zapisać. 

W komórkach ADRES wpisujemy adres' 
początku obszaru pamięci, do którego zo- 
staną wpisane dane odczytane z dysku przy 
odczycie bloku (lub z którego zostaną 
pobrane dane do zapisania na dysku przy 
zapisie bloku). W przykładzie podano 
adres ++8000 (32768), a więc odczyt-zapis 
będzie dotyczył obszaru od 32768 do 
34815. 

Procedurę wywołuje 
PRINT USR 60000. 


się przez np. 


wraz z plikami roboczymi znajduje się 
szereg cennych programów roboczych 
jak: makroasemblery MBO i MAC, pro- 
gram pomocniczy CREF80 do MBO po- 
zwalający na uzyskiwanie tekstu źród- 
łowego poszerzonego o dodatkowe infor- 
macje, program łączący L80, dwa (SID 
i ZSID) programy pomocne przy urucha- 
mianiu procedur w języku asemblera 
(ang. debugger). Komplet ten uzupełnia 
pełnoekranowy edytor przeznaczony do 
redagowania programów źródłowych 
o nazwie EDJ (jest on zgodny z regułami 
wprowadzonymi przez firmę Borland In- 
ternational wraz z edytorem tekstów 
WordStar). Ten elementarny zestaw do- 
pełnia kompilator języka Pascal (zgodny 
z Turbo Pascalem wersja 3.0 firmy Bor- 
land International) wyposażony w auto- 
matyczny edytor (te same zasady co przy 
edytorze EDJ) wraz z pakietem elemen- 
tarnych procedur graficznych oraz inter- 
preter języka BASIC (implementacja ję- 
zyka BASIC-80). Do każdej z wymienio- 
nych pozycji producent załącza wyczer- 
pującą (choć chwilami trudną w czytaniu) 
instrukcję w języku polskim. Dodać nale- 
ży, że od kilku miesięcy dostępny jest 
również interpreter języka LOGO tak 
w wersji angielskiej, jak i polskiej (tzw. 
PTI-LOGO). Jak na młody wiek JUNIOR-a 
to wcale pokaźny zestaw i winien być 
podmiotem oddzielnych testów. 


Po blisko półrocznym intensywnym te- 
stowaniu sieci JUNIOR-ów złożonej z sie- 
dmiu mikrokomputerów (1+6) i stacji 
dysków elastycznych można z zadowole- 
niem stwierdzić, że w dużej mierze speł- 
nia ona pokładane nadzieje. Nie ziściły 
się kasandryczne doniesienia o bezna- 
dziejnej pracy stacji dysków elastycz- 
nych (dotyczyły wcześniejszego typu) 
i częstych błędach przy transmisji da- 
nych w sieci JUNET. 

Poniżej zawarte jest krótkie porówna- 
nie parametrów JUNIORA. 


Zalety 


— możliwość pracy w sieci i zgodność 
z CP/M, 

— dostępne z klawiatury polskie znaki 
diakrytyczne oraz (w trybie ZX Spec- 
trum) komunikaty w języku polskim, 

— zwartość budowy (zasilacz w środku 
obudowy), 

— trwała klawiatura, 

— duża (blisko 1.4 MB) pojemność do- 
stępnej pamięci dyskowej, 

— możliwość wykorzystania bogatej bi- 
blioteki oprogramowania mikrokom- 
putera ZX Spectrum, 

— prosta obsługa komunikacji ze stacją 
dysków elastycznych w systemie 
ZX Spectrum. 


Wady 


— brak dostępnego z zewnątrz bezpie- 
cznika, 

— głośna praca stacji dysków elastycz- 
nych, 

—- brak możliwości rozsyłania progra- 
mów do dowolnie wybranego mikro- 
komputera (za pomocą adresu indy- 
widualnego lub identyfikatora), 

— brak programów systemowych (w 
CP/J) pozwalających kopiować zbio- 
ry z dysków o mniejszych pojemno- 
ściach (standardy CP/M), 

— brak oprogramowania dydaktyczne- 
go pracującego pod nadzorem syste- 
mu CP/J (miejmy nadzieję, że chwilo- 
wo), 

— wysokie wymagania dotyczące elek- 
trycznej sieci zasilającej, 

— brak wyprowadzenia odpowiednio 
buforowanej magistrali systemowej, 

— zdaniem entuzjastów ZX Spectrum, 
brak opisu słów kluczowych ZX Spec- 
trum na klawiaturze, 

— brak możliwości przerwania (przez 
wykonanie BREAK) działania instruk- 
cji LPRINT, LLIST i COPY (w trybie 
ZX Spectrum), 

— brak gniazda umożliwiającego pod- 
łączenie odbiornika TV. 


TADEUSZ A. ZALESKI 
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Wydruk 1. Procedura odczytu numeru komputera 0060 LD A, 48H „akumulator :=48 hex 
0070 OUT (0F7H),A ;włącz ROM dodatk. 
0010 ; 0080 LD HL,ADR1 ;HL:= adres źródła danych 
0020 :; ;'Odczyt numeru komputera" 0090 LD DE, ADRO ;DE:= adres przeznaczenia 
0060 ; 0100 LD BC,2000H  ;:BC:= długość bloku danych 
0070 ORG 60000 :adres wywołania 0110 LDIR :przepisz blok dł.8192 dec 
0080 ; 0120 LD A,8 „akumulator :=8 
0090 START DI ;zablokuj przerwania 0130 OUT (0F7H).,A ;ROM podst. ,RAM 16..64 KB 
0100 LD A,10H przygotowanie do odczytu 0140 EI ;odblokuj przerwania 
0110 OUT (0F7H) „A numeru 0150 RET ;powrót 
0120 LD A,OFFH 5 0160 ; 
0130 IN A, (OFEH) ;A:= numer komputera 0170 END 
0140 LD B.0 : 
0150 CPL snegacja akumulatora Wydruk 4. Procedura odczytu-zapisu jednego bloku. 
0160 AND 3FH ;weź tylko bity 0..5 
0170 LD C,A :C - numer komputera 0010 ; 
0180 LD A,8 ;ROM pod., RAM 16..64 KB 0020 ; 
0190 OUT (0F7H),A ;przełącz pamięć 0030 ORG 60000 ;adres wywoł.procedury 
0200 EI ;odblokuj przerwania 0040 : 
0210 RET ;powrót — BC nr komp. 0050 BLOK EQU OACDH ;adres proc.zapisu-odczytu 
0220 END 0060 DYSNR EQU 3209H adres zmien. — nr FDD 
0070 ; 
3 0080 RWBLK DI :zablokuj przerwania 
Wydruk 2. Prouedura kopiowania RAM przez OUT 247,168 0090 PUSH TY ;przechowaj IY na stosie 
0100 LD A,48H ;A:=48 hex 
0010 ; 0110 OUT (0F7H).A ;:włącz ROM dod. i RAM 8..64 KB 
0020 ; ;"kopiowanie RAM 2000..3FFF do RAM 0120 LD A.(NRDYS) ;A:=numer FDD 
0030 ; 8000..9FFF" 0130 LD (DYSNR).A ;:i wpisz do 3209h 
0040 :; ;'"kopiowanie przez OUT 247,168 w 0140 LD BC. (KODOP) ;BC:= kod op.4-odcz.,6-zapis 
0050 ; ; ZX Spectrum BASIC" 0150 PUSH BC ;i umieść na stosie 
0060 ; 0160 LD BC, (NRBLK) ;BC:=numer bloku 
0070 ORG 60000 ;adres wywołania 60000 0170 LD DE, (ADRES) ;DE:=ad.zapisu-odczytu bloku 
0080 ; 0180 CALL A ;czytaj-zapisz blok 
0090 DLUG EQU 20H ;długość bloku kodu 0190 LD B,O ;BC:=kod błędu 255 dobrze 
0100 KOPY3 EQU 1E7AH :adres przeznaczenia bloku kodu 0200 LD C,A ; 0 - źle 
0110 ; 0210 LD A,8 :ROM podst.,RAM 16..64 KB 
0120 KOPY1 DI ;zablokuj przerwania 0220 OUT (0F7H).,A ; 
0130 LD HL,KOPY2 ;HL:=adres źródła danych 0230 POP IY ;odtwórz rej. IY 
0140 LD DE,KOPY3 ;DE:=adres przeznaczenia danych 0240 El ;odblokuj przerwania 
0150 LD BC,DLUG ;BC:=długość bloku 0250 RET ;wróć do BASIC ZX Spectrum 
0160 LD A,OA8H ;włącz pełny RAM 0260 ; 
0170 OUT (0F7H).A ; 0270 NRDYS DEFB 0 :nr FDD (0 lub 1) 
0180 LDIR . ;przeładuj pamięć 0280 KODOP DEFW 4 ;kod oper. (4-load, 6-save) 
0190 LD A,OC9H A:=kod RET i wpisz do 0290 NRBLK DEFW O ;numer bloku 
0200 LD (38H) „A ; adresu INT .»raz 0300 ADRES DEFW 8000H iadres początku bloku w 
0210 LD (66H) „A ; NMI + - :pamięci 
0220 LD A,B ;ROM pod., RAM 16..64 KB 0310 ; 
0230 OUT (0F7H).A :przełącz pamięć 0320 END 
0240 El :odblokuj przerwania 
0250 RET :powrót do ZX Spectrum BASIC 
0260 ; Wydruk 5. Procedura odczytu/zapisu jednego sektora. 
0270 KOPY2 LD A,8 ;A — przygotow. do przełącz. 
0280 El :odblokuj przerwania 0020 ORG 60000 ;adres wywołania 
0290 OUT (0F7H) ,A ;wróć do BASIC (ROM pod.adres 1E7F) 0030 ; 
0300 ; 0040 RWSEK DI ;zablokuj przerwania 
0310 S1E7F DI :tu wejście po OUT 247,168 (BASIC) 0050 PUSH IY ;IY na stos 
0320 PUSH HL ;zabezpiecz rejestry 0060 LD A,48H ;ROM dod., RAM 8..16 KB 
0330 PUSH DE 3 0070 OUT (0F7H),A ;przełącz pamięć 
0340 PUSH BC ; 0080 LD  DE,2009H ;DE:=adr. kodów ster. 
0350 LD BC,2000H  :BC:=dł. bloku 0090 LD HL,USTAW  ;uPD 765 — tu ustaw.głow. 
0360 LD HL, 2000H ;HL:=adres bloku 0100 LD BC,3 ;na ścieżkę 
0370 LD DE,8000H ;DE:=adres przeznaczenia 0110 LDIR ;przepisz kody 
0380 LDIR :przeładuj RAM 2000. .3FFFh do 0120 LD A,(NRDYS) ;A:=numer FDD 
: 8000..9FFF hex 0130 CALL O1EEH ;włącz FDD 
0390 POP BC :odtwórz rejestry 0140 WAIT IN A,(OEEH) ;odćz. rej. stat. sterow. 
0400 POP DE ę 0150 BIT 7,A ;czy stacja gotowa ? 
0410 POP HL ź 0160 JR Z,WAIT ;skok jeśli nie gotowa 
0420 JR KOPY2 ;skok do wyjscia 0170 CALL OPOZN ;opóźnienie 
0430 END 0180 LD BC,2007H ;BC:=adr. kodów sterown. 

3 6190 CALL 99AH „ustaw głowicę na ścieżkę 
Wydruk 3. Procedura kopiowania ROM dod. — RAM 8000..9FFFh 20 e ana ADNET ORNE 
0000 ORG 60000 ;adres proc. 60000 dec. 0 ECCE owe 1 ko” 

0020 ADRO EQU 32768 ;adres przeznacz.danych 0280 OEI 102, dw Kżeika 
0030 ADR1 EQU O „adres źródła danych 0260 CALL 99AH ;zapisz/odczytaj sektor 
0040 „> 0270 CALL OPOZN _ ;opóźnienie 


0050 COPY DI ;zablokuj 


Przy prawidłowym odczycie lub zapisie 
na ekranie powinniśmy otrzymać 255. Jeśli 
odczyt lub zapis nie był prawidłowy (np. 
dysk w innym formacie) na ekranie pojawi 
się 0. 

Procedura z wydruku 5 umożliwia od- 
czyt lub zapis dowolnego sektora na dysku 
formatu 720 KB, jak również w innych 
formatach np. 360 KB IBM. Wywołana 
z takimi jak podano w wydruku parame- 
trami odczytuje pierwszy sektor ścieżki 
O na stronie © dysku umieszczonego w stacji 
0 (czyli A) —w formatach 720 KB, 360 KB 
i 180 KB (jednostronne). Dane odczytane 
z dysku wpisuje do RAM od 32768 do 
33279 (++8000. .+Ę81FF). 

W celu odczytania innych sektorów na- 
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przerwania 


leży zmienić poszczególne parametry dla 
sterownika uPD 765. 

W komórce NRDYS można umieścić 
0 lub I (napęd A lub B). 

W komórkach STDY1 i STDY2 należy 
podać stronę i numer napędu: bity 
0 i I — nr napędu od O do 3 (w Juniorze 
0 lub 1), bit 2 — strona O lub 1. 

W komórkach SCIE1 i SCIE2 należy 
wpisać numer ścieżki (od 0 do 79), przy 
czym nie muszą to być te same wartości. 
Jeśli do stacji włożymy dysk np. 360 KB 
(każda strona zawiera tu po 40 ścieżek, 
a więc dwa razy mniej niż Junior) to chcąc 
odczytać jakiś sektor ze ścieżki np. 10, 
należy wpisać do SCIE1 wartość 20, a do 
SCIE2 wartość 10. Inaczej mówiąc należy 


ustawić głowicę stacji na odczyt ścieżki 20, 
a odczytać 10. 

W komórce STR należy jeszcze hy 
podać numer strony dysku (0.. 
a w komórce SEKT umieścić numer s 
tora 1..9. 


Od adresu USTAW (4FEAB = 60086) 
umieszczone są dane dla sterownika uPD 
165: 


kod instrukcji „„ustaw__głowicę__napę- 
du__na_ ścieżkę” (1 komórka — ++0F), 
strona i nr napędu (l komórka), numer 
ścieżki (1 komórka). 

Od adresu RDWR umieszczone są dane 
dla właściwej operacji zapisu lub odczytu 
sektora: 








TABELA | 


. 4:08 (8) — 40. .ż+3FFF ROM podst., ż+4000..++FFFF RAM, ekran 


0280 CALL 1F8H ;wyłącz FDD 
0290 LD A, (201AH) BG bięÓn do BC ZX Spectrum (+;4000). 

0300 LD C,A 2 2. ż£28 (40) — ż0..3FFF ROM podst., 4000. .+:FFFF RAM, ekran 
0310 POP TY ;odtwórz IY CP/J (4ŁE000) 

0320 LD A,8 :ROM podst., RAM 16..64 KB / . 

0330 OUT (0F7H) „A iozasacć pamięć 3. 448 (72) — +0. .1FFF ROM dodatk., :2000. .Ż:FFFF RAM, ekran 
0340 El ; lokuj przerwania ZX Spectrum (++4000). 

: BASI s 
za A W OE 2 4. 3:68 (104) — 4Ł0..ŻF1FFF ROM dodatk., ż+2000..+ĘFFFF RAM, 


0370 OPOZN LD BC,80H 


;procedura opóźni8jąca 
0380 LOOP DJNZ LOOP : 


0390 DEC C 5 
0400 JR NZ,LOOP ; 
0410 RET ;powrót do głównej proc. 6 


;kod ster. — ustaw głowicę 
;strona dysku, nr FDD 
inumer ścieżki (0..79) 


0430 USTAW DEFB OFH 
0440 STDY1 DEFB 0 
0450 SCIE1 DEFB 0 


„adres zapisu-odczytu 


0470 RDWR DEFW 8000H ż 
;kod ster.-tu odczyt sekt. ż 


0480 CODE DEFB 46H 


0490 STDY2 DEFB 0 ;strona dysku, nr FDD 
0500 SCIE2 DEFB O ;nr ścieżki (0..79) 

0510 STR  DEFB O ;strona (0..1) 

0520 SEKT DEFB 1 ;nr sektora (1..9) 

0530 DEFB 2 ;512 bajtów/sektor 

0540 DEFB 9 ;9 sektorów/ścieżkę 
0550 DEFB 12H sodstęp między sektorami 
0560 DEFB OFFH „stała 255 

0570 NRDYS DEFB O snr FDD (0 lub 1) 

0580 

Wydruk 6. Program czytania/zapisu sektorów w formatach 


720 i 360 KB. 
10 LOAD *"CSEKTOR"CODE 60000,101 


CLS 

30 INPUT "DYSK 1/0*;D: IF D<>O AND D<>1 THEN GO TO 30 

40 INPUT "OPERACJA L/S";K$: IF K$€>"L" AND K$C>"S" THEN GO 
TO 40 

50 IF K$="L" THEN POKE L+91,70 

60 IF K$="S" THEN POKE L+91,69 

70 INPUT "FORMAT 720/360 KB" (1/2";FORM: IF FORM <>1 AND 
FORM >2 THEN GO TO 70 

80 INPUT "SEKTOR 0..1439/0..719";NRSE: IF NRSE*FORM>1439 
THEN GO TO 80 . 


90 REM *** numer sektora na ścieżce (0..B) 
100 LET SEK=NRSE-9*INT (NRSE/9) 

110 REM *** numer ścieżki 

120 LET SCI=INT ((NRSE-SEK) /18) 

130 REM *** strona 

140 LET STR=(NRSE-SEK) /9-SCI*2 

150 REM *** sektor 1..9 

160 LET SEK=SEK+1 

170 REM *** 

180 LET L=60000 

190 REM *** strona i numer dysku 
200 POKE L+87,D+4*STR: POKE L+92,PEEK (L+87) 
210 „Ę strona 

220 POKE L+94,STR 

230 REM *** ścieżka (*2 dla 360 KB) 
240 POKE L+88,SCI*FORM: POKE L+93,SCI 
250 REM *** sektor 

260 POKE L+95,SEK 

270 REM *** numer dysku 

280 POKE L+100,D 

290 REM *** 


300 LET M=USR L: CLS : 

ODCZYTU": GO TO 30 
310 CLS : PRINT "SEKTOR ";NRSE, "FORMAT ";PORM: PRINT 
320 LET ADRES=32768: FOR F=ADRES TO ADRES+511 


IF MC>O THEN PRINT "BŁAD ZAPISU- 


330 PRINT F;" ":PEEK F,CHR$ (PEEK F AND PEEK F >31) 

340 NEXT F 

350 GOTO 20 

Uwaga: w linii 10 zbiór "CSEKTOR"* to kod wynikowy uzyskany 


po zasemblowaniu procedury z wydruku 5. 


ke © — 


© U 


ekran CP/J (ŻŁE000). 


. 4E88 (136) — 4+0..4Ł1FFF ROM podst., ż+2000..+:FFFF RAM, 


ekran ZX Spectrum (44000). 


. 4EA8 (168) — żŁ0. żŁFFFF RAM, ekran CP/J (+ŁE000). 


Ż+C8 (200) — i0..3:1FFF ROM dodatk. +4+2000..iF3FFF ROM 
podst., $:4000..<:FFFF RAM, ekran ZX Spectrum (+£4000). 


. 4ŁE8 (232) — 4:0..4:1FFF ROM dodatk., ż£2000..4F3FFF ROM 


podst., 4000. .f+FFFF RAM, ekran CP/J (ŻŁE000). 


. 410 (16) — umożliwia odczyt nr komputera. 


TABELA Il 


. 4£2007 — adres odczytu lub zapisu jednego sektora. 
. 4;2009..4$:2011 — kody instrukcji i dane dla układu scalonego 


sterownika stacji NEC uPD 765. 


. $£2012. .$201A — kody błędów sterownika dysków. 
. 4£2080. . $F28FF — bufor, do którego wczytywane są bloki katalogu 


dysku (bloki 0..3). W danym momencie wpisany tam może być 
oczywiście tylko jeden blok (2 KB). 


. HE29EC. . ;Ł29FC — nagłówek zbioru typu ZX Spectrum. 
. +Ł29FD. .+£32FC — bufor, do którego wczytywane są z dysku (lub 


z którego zapisywane są na dysk) poszczególne bloki danych pliku. 
W pierwszych blokach plików typu ZX Spectrum pierwsze 17 bajtów 
zawiera nagłówek zbioru. 

+:3209 — numer aktywnej stacji dysków. 


. 43800. . +”3EAF — bufor, w którym system umieszcza przygotowa- 


ny do wydruku na ekranie katalog dysku po wykonaniu polecenia 
DIR (w trybie ZX Spectrum). 


TABELA Ill 


. 1£01ED — włączenie stacji. Numer napędu w rej. € (3;01EE 


— numer w akumulatorze). Numer napędu zapamiętywany jest 
w rej. IY. 


. 4£01F8 — wyłączenie napędu. Nie wymaga parametrów, gdyż 


numer stacji pamiętany jest w rejestrze IY. W czasie od włączenia 
(proc. żF01ED) do wyłączenia stacji (proc. ż:01F8) nie wolno używać 
procedury $Ł01ED. 


. ŻŁ099A — elementarna procedura komunikacji systemu ze scalo- 


nym sterownikiem stacji NEC uPD 765. Po umieszczeniu w od- 
powiednim miejscu RAM kodu instrukcji oraz danych dla sterownika 
stacji (normalnie pod adresem +:2009), wpisaniu w dwóch poprze- 
dnich komórkach (normalnie 42007) adresu zapisu lub odczytu 
sektora, należy w parze rejestrów BC podać adres (standardowo 
+ż:2007) ww. parametrów i wywołać procedurę przez CALL 
+:099A. W komórkach pamięci od 4+2011. .:201A wpisywane są 
kody dotyczące statusu sterownika (najważniejsza jest zawartość 
3:201A). 


. +ŁOACD — podstawowa procedura zapisu-odczytu jednego bloku 


(2 KB). Przed jej użyciem należy umieścić na stosie procesora kod 
operacji np. ładowania bloku — LD BC, 0004, PUSH BC (zapis bloku 
— LD BC.0006. PUSH BC), następnie w parze rejestrów BC należy 
umieścić numer bloku, a w parze DE adres zapisu-odczytu bloku. 


— adres odczytu (zapisu) sektora (2 ko- 
mórki), kod operacji „„odczytaj__sektor” 
(46) (lub „zapisz__sektor” — 45), strona 
i nr napędu (I komórka), numer ścieżki (1 
komórka), strona (1 kom.), numer sektora 
(1 kom.). Dalej ilość 256-bajtowych blo- 
ków danych w jednym sektorze, liczba 
sektorów na ścieżkę, długość przerwy mię- 
dzy sektorami, liczba 255, gdy sektor za- 
wiera więcej niż 256 bajtów danych. 

Dane od adresu SCIE2 do bajtu zawiera- 
jącego HE FF muszą być przy odczycie lub 
zapisie sektora identyczne z tzw. identyfi- 
katorem sektora, który umieszczany jest na 
początku każdego sektora podczas forma- 
towania dysku. Jeżeli dysk jest inaczej 
sformatowany np. jedna ścieżka zawiera 


8 sektorów, to chcąc go odczytać należy 
zmienić niektóre dane dotyczące identyfi- 
katora sektora (w tym przypadku liczbę 
sektorów na ścieżkę, a możliwe, że także 
i inne np. odstęp między sektorami, dłu- 
gość sektora). 

Aby ułatwić posługiwanie się przedsta- 
wioną procedurą przy odczycie-zapisie 
dysków w dwóch formatach 720 KB i 360 
KB można napisać dodatkowo program, 
który po określeniu numeru sektora (od 
0 do 1439 dla dysku 720 KB, lub od 0 do 
719 dla 360 KB) wyliczy numer strony, 
numer ścieżki i numer sektora na ścieżce. 
Dla łatwiejszego zrozumienia program na- 
pisany jest w ZX Spectrum BASIC (por. 
wydruk 6). 


Po uruchomieniu programu należy po- 
dać nr napędu, rodzaj operacji (Load- 
-Save), format dysku oraz numer sektora. 

W liniach 100..160 program przelicza 
numer sektora (0..1439 lub 0..719) na 
potrzebne dane tzn.: numer sektora na 
ścieżce, numer ścieżki i stronę. Następnie 
od linii 200 do 280 wpisuje wyliczone dane 
do odpowiednich komórek pamięci, gdzie 
stanowią one dane dla sterownika dysków. 
Po pomyślnym zakończeniu procedury 
maszynowej (linia 300) zmienna M=0 
i następuje wydruk na ekranie odczytanych 
(zapisanych) danych. W przeciwnym wy- 
padku sygnalizowany jest błąd. 

Program na wydruku 6 jest bardzo upro- 
szczony. Można go rozbudować o wiele 


25 


różnych funkcji, przede wszystkim, jeśli 
chodzi o wydruk (np. szesnastkowo). Moż- _ jącego napisanego w całości w asemblerze 
na także przenieść np. przeliczenia sek- 
torów do procedury maszynowej, itd. 
Powyższy tekst został w całości napi- 
sany na mikrokomputerze Junior pracują- 
cym w trybie CP/J za pomocą edytora 
tekstów EDJ znajdującego się na dysku 


firmowym. 


Procedury maszynowe napisane zostały 
przy użyciu asemblera EDITAS firmy Pic- 
turesque komputera ZX Spectrum (asem- 
bler przystosowano do współpracy ze sta- 


cją dysków Juniora). 


IBM 360 KB. 


STAR NL 10. 


Następnie przy użyciu programu kopiu- 


(znowu EDITAS) plik z niniejszym teks- 
tem został przeniesiony na dysk w formacie 


Po zamianie kodów polskich znaków 
diakrytycznych Juniora na kody „„odpo- 
wiednie* dla IBM-a (patrz INFORMIK nr 
2/1988 str. 11) — to już wykonał krótki 
program w Pascalu na IBM AT — tekst 
został „„uformowany” pod kontrolą edyto- 
ra WORDSTAR v.4.00 (na komputerze 
IBM AT) i wydrukowany na drukarce 





ZZL www, 


„Czytaj i pisz: po angielsku” to 
tytuł pakietu dziesięciu programów 
edukacyjnych wydanych przez Kra- 
jowe Wydawnictwo Czasopism 
RSW „,Prasa-Książka-Ruch” i Re- 
dakcję Programów  Komputero- 
wych jako 17 pozycja programów 
komputerowych dostępnych na ka- 
setach magnetofonowych. Pakiet 
ten stanowić ma pomoc w nauce 
języka angielskiego dla dzieci 
w wieku od 5do 9 lat. Przeznaczony 
jest na komputer ZX Spectrum (i 
zgodne z nim) i składa się z pięciu 
kaset (na każdej po dwa programy). 
Cena pakietu 3500 zł. Programy te 
są polskimi adaptacjami wydanych 
w 1984 roku przez firmę Macmillan 
Education programów edukacyj- 
nych pod nazwą Learn to 
Read. 

Zanim przejdziemy do oceny wa- 
lorów edukacyjnych programów 
zatrzymajmy się na chwilę nad ich 
cechami dającymi się określić jako 
komercyjne. 

»- Problematyczne wydaje się wy- 
danie pakietu na pięciu kase- 
tach. Motywem podjęcia takiej 
decyzji było z pewnością ułat- 
wienie użytkownikowi wyszuka- 
nia konkretnego programu, jed- 
nak rozwiązanie to znacznie 
podniosło cenę zestawu. Nale- 
żałoby rozważyć możliwość na- 
grania wszystkich programów 
na jednej kasecie i sprzedaży 
zestawu po niższej cenie. 


KOMDUTEXR 
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P- Dyskusyjna jestforma graficzna 
winiety programu (uwaga ta od- 
nosi się do większości kaset 
z programami wydanymi przez 
KWCZz). Opracowana bezsprze- 
cznie starannie razi pewną to- 
pornością (winieta nie zawiera 
bezpośredniego  wyszczegól- 
nienia nazwiska grafika). 

b». Bezsprzecznie. naganny jest 
niechlujny sposób dystrybucji 
kaset. Dostarczane są one lu- 
zem (nawet bez zbiorczego 
kartonowego pudełka), kolory 
pudełek kaset różnią się od 
siebie, winiety są niedopaso- 
wane do pudełek i wystają 
poza ich obręb. 

»- Jakość kaset można określić ja- 
ko przeciętną (na kasetach 
umieszczony jest znak firmowy 
WIFONU). Zastosowana do na- 
grania programu Szybka Pa- 
mięć  Taśmowa (autorstwa 
p. A. Pucka) skutecznie skraca 
czas ładowania, a dobre nagra- 
nie wysokim poziomem powo- 
duje, że praktycznie nie wystę- 
pują kłopoty z wprowadzeniem 
programu do komputera. 

b» Instrukcja programu zawarta 
jest na winietach kaset. Jest 
bardzo lakoniczna, chwilami 
aż do niezrozumiałości. Wobec 
poważnej roli, jaką ma pełnić 
program edukacyjny, takie 
skrótowe potraktowanie instru- 
kcji jest niedopuszczalne. Wy- 
daje się, że jeżeli z takich czy 
innych przyczyn nie można by- 
ło dołączyć do pakietu porząd- 
nie opracowanej instrukcji 
w postaci książeczki, to nale- 
żało ją załączyć w postaci pliku 
tekstowego z programem udo- 
stępniającym na ekranie kom- 
putera. Na marginesie należy 
dodać, że nawet tak skrótowo 
potraktowana instrukcja za- 
wiera błędy i nieścisłości (brak 
opisu lekcji 6 — zamiast niej 
powielono opis lekcji 7, w opi- 
sie lekcji 8 występują rozbież- 
ności w nazewnictwie w sto- 
sunku do programu). 


Rozpatrzmy teraz walory eduka- 
cyjne zestawu. Programy te w zało- 
żeniu przeznaczone były do nauki 
pisania i czytania dla dzieci angiel- 
skich, i stanowiły niewielki procent 
całej gamy analogicznych progra- 
mów edukacyjnych (jak np. Verbs, 
Flower, Anagram, ldioms i wiele 
innych). Przeznaczenie ich na kom- 
puter ZX Spectrum podyktował 
okres ich powstania (pamiętajmy, 
że jako komputer dla szkolnictwa 
brytyjskiego wybrany został BBC 
Acorn). Różnice w stosunku do ory- 
ginałów sprowadzają się jedynie 
do poleceń i niektórych opisów, 
które zostały zastąpione polskimi. 
Testując program usiłowałem 
wczuć się najpierw w rolę małego 
Polaka uczącego się języka angiel- 
skiego (posługując się wersją spol- 
szczoną), a następnie w rolę małe- 
go Anglika uczącego się czytać 
i pisać (posługując się wersją ory- 
ginalną). Od komputera odchodzi- 
łem z mieszanymi uczuciami — od- 
niosłem wrażenie, że ani z jed- 
nego, ani z drugiego punktu widze- 
nia program nie spełnia swoich 
założeń. 

Podobne opinie usłyszałem też, 
niestety, od młodych ludzi, którym 
udostępniłem kasety do przetesto- 
wania. Podstawowe zarzuty, które 
postawiłbym programom z punktu 
widzenia dydaktyki polskiej są na- 
stępujące (opinia uwzględnia do- 
świadczenia własne i zaprzyjaźnio- 
nej młodzieży): 

b. Nieprzystosowanie programu 
nauczania do poziomu ucznia, 
co wiąże się z bezpośrednim 
przeniesieniem obcojęzyczne- 
go wzorca. Mały Polak będzie 
czuł się zagubiony pośród na- 
tłoku nowych słów i wyrażeń 
(pamiętajmy, że nie będą mu 
się one kojarzyć natychmiast 
z zasłyszanymi, tak, jak małe- 
mu Anglikowi). Z drugiej stro- 
ny niepotrzebna jest mu nauka 
kolejności liter w alfabecie, 
gdyż przypuszczalnie ma już 
to opanowane. 

»- Niski stopień realizacji techni- 
cznej programu (chodzi tu głów- 
nie o powolność i niejednozna- 
czność reakcji na wciśnięcie 
klawisza, niemożliwość natych- 
miastowego przerwania testu 
itp.; reakcją dorosłego na takie 


kłopoty będzie namysł, ponow- 
na próba lub przeczekanie, rea- 
kcją dziecka — panika). 

>. Monotonność przykładów i tes- 
tów. (Tu jednak należy być 
ostrożnym w ocenie, gdyż może 
to być czynnikiem ułatwiającym 
obsługę programu przez nabra- 
nie rutyny). 

»- Polskie opisy i polecenia wyda- 
ją się być nietrafnie dobrane 
i pojawianie się ich w angiels- 
kojęzycznym otoczeniu razi. 
Być może należało wprowadzić 
je w innej formie — oryginału 
polecenia w języku angielskim 
i następującego po nim tłuma- 
czenia na język polski podane- 
go w nawiasach. W programie 
zachowano występujące w wer- 
sji oryginalnej zabezpieczenie 
przed przerwaniem pracy za 
pomocą polecenia BREAK; po 
wydaniu go komputer zeruje 
się. Wydaje się, że należało 
usunąć taką formę zabezpie- 
czenia, zastępując ją np. po- 
wrotem do głównego menu 
(obecnie realizowanego niety- 
powo poleceniem EDIT). Dziec- 
ko, które miało kontakt z kom- 
puterem ZX Spectrum, chcąc 
przerwać aktualnie wykonywa- 
ny test odruchowo wciśnie kom- 
binację klawiszy BREAK, nisz- 
cząc w ten sposób program. 


Reasumując: wydaje się, że wy- 
bór tej serii programów nie był naj- 
lepszym z możliwych. Program jest 
przeznaczony dla indywidualnego 
użytkownika, i użytkowanie go 
w nauczaniu zbiorowym mija się z 
celem (myślę tu o wybranym na po- 
trzeby polskiego szkolnictwa zgo- 
dnym z ZX Spectrum Elwro 800 Jr 
i jego pracy w sieci). Jeżeli zdecy- 
dowano się na niego, należało do- 
konać w nim gruntowniejszych 
(i bardziej przemyślanych) przeró- 
bek, zarówno pod względem adap- 
tacji sprzętowej (możliwość pracy 
w sieci, wersja dostarczana na dys- 
kietkach), jak i merytorycznej (ukie- 
runkowanie na polskiego odbior- 
cę). Być może jednak te przeróbki 
wymagałyby tak wielu zmian, że 
bardziej opłacałoby się napisać 
program od nowa... 


Dariusz Adam Przygoda 








KOMPUTEROWA 
SYMULACJA 
WIDM ATOMOWYCH 


Jak wyglądają widma emisyjne różnych 
atomów? Czy można wyśledzić jakieś po- 
dobieństwa w widmach pierwiastków w ra- 
mach okresu lub grupy układu okresowe- 
go? Czy istnieje powiązanie między wid- 
mem a strukturą atomu? Te bardzo in- 
teresujące zagadnienia badano już od 1859 
roku, kiedy G. R. Kirchoff i R. W. Bunsen 
zbudowali pierwszy spektroskop i zastoso- 
wali go do porównania widma słonecznego 
z widmami soli i metali. W 1915 roku N. 
Bohr i A. Sommerfeld stwierdzili związek 
między budową atomów i cząsteczek, a ich 
widmami. Uczyniło to spektroskopię jedną 
z głównych metod. badania budowy ato- 
mów i cząsteczek i pozwoliło ustalić wiele 
z tego, co o strukturze materii możemy 
dzisiaj przeczytać w podręcznikach fizyki 
i chemii. Chyba więc warto zabawić się 
w „detektywów widm”? 

W szkole na pewno dostępny jest prosty 
spektroskop pryzmatyczny. Zacznijmy od 
niego. Trzeba naocznie przekonać się jak 
„w naturze” wygląda np. widmo sodu. 
Niestety możliwości takiego przyrządu są 
bardzo ograniczone. Przede wszystkim je- 
steśmy w stanie obserwować widmo tylko 
w zakresie promieniowania widzialnego, 
a ponadto, ze względu na małą zdolność 
rozdzielczą spektroskopu, blisko położone 
linie będą się pokrywać. Warto by też jakoś 
zarejestrować obserwowane widma, jeżeli 
chcemy potem porównywać je między so- 
bą. Nie pozostaje nam nic innego jak albo 
jakoś dostać się do laboratorium posiada- 
jącego odpowiednią aparaturę, albo — za- 
brać się za komputerową symulację widm. 


Korzystając z wzoru Rydberga można, 
stosunkowo prosto, wygenerować widmo 
atomu wodoru uzyskując wyniki niewiele 
różniące się od obserwowanych w prakty- 
ce. Sprawa komplikuje się w przypadku 
cięższych pierwiastków. Na szczęście są 
obecnie dostępne katalogi widm, w któ- 
rych zebrano wyniki wieloletnich badań 
wielu uczonych. 

Przedstawiony tu prosty program dla 
komputera ZX Spectrum korzysta właśnie 
z katalogowych wartości długości fal umie- 
szczonych w liniach DATA. Umożliwia on 
jednoczesne przedstawienie na ekranie 
widm atomowych wodoru i litowców w za- 
kresie od 80 do 4200 nm, czyli od dalekiego 
nadfioletu do średniej podczerwieni. Ob- 
serwowany zakres można zawęzić tak, żeby 
otrzymać najkorzystniejszy obraz. Widma 
wyglądają jak wąskie paski składające się 
z szeregu grubszych i cieńszych linii (rys. 1) 
i stąd pochodzi nazwa — widmo liniowe. 
Postać taka jest charakterystyczna dla 
wzbudzonych wolnych atomów lub jonów. 

Pod widmami umieszczona jest informa- 
cja o ich zakresie oraz położeniu wskaźnika 
widocznego poniżej widma cezu w postaci 
małego krzyżyka. Wskaźnik można prze- 
suwać w poziomie o 10 pikseli za pomocą 
klawiszy 5 i 8, a o 1 piksel wciskając 
jednocześnie CAPS SHIFT. Naciśnięcie 
klawiszy 6 lub 7 powoduje przestawienie 
wskaźnika pod inne widmo. Dokładność 
odczytu położenia wskaźnika zależy od 
zakresu widma. Zakres ten można zmie- 
niać bądź przez naciśnięcie klawisza „,z”, 
a następnie podanie minimalnej i mak- 
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5S REM zzzzkyzykkkzzkkEZZzEEEkzEżŁk 


10 REM WIDMA ATOMOWE LITOWCÓW 

20 REM A.M.GROSSMAN 1987 

25 REM zZZZZŃRZZZZZKEKZEZZEKEZEZEŁ 

30 POKE 23609,20: POKE 23658,0 

40 REM * DEFINIOWANIE ZNAKOW * 

SQ REM A="t",B="Ł",C="Ż", o="6" 

6Q0 POKE 65480,8 

70 FOR i=O TO 22: READ a: 
(USR "A"+i),a: NEXT i 

80 DATA 0,16,56,16,0,56,0,0,0, 
16,24,16,48,16,12,0,8,16,124,8,1 
6,32,124 

90 DIM a$(2) 

100 LET lniQ=LN 10: LET cz=.05: 
LET t=30 

105 REM RĄ.ZZZRZAKZZZZEZEAZEZZZZZZEZ 
110 REM * DEKLARACJA ZAKRESU * 
120 LET od=80: LET do=4200 

130 CLS 

140 PRINT AT 8,3;" WIDMA ATOMOW 
E LITOWCÓW" 2 

150 PRINT AT 10,2;"W ZAKRESIE 
"od;" - ";do;" nm" 

16Q PAUSE 200 

170 LET min=od: LET max=do: 
y=38 

180 LET dl=max-min 

190 LET jed=dl/231 

200 LET mnoz=1/10*(INT (LN jed/ 
1ni0)) 

210 LET dokl=(INT (mnoz* jed+0.5 


POKE 


LET 


)/mnoz): LET d$=STR$ dokl: IF d$ 
(1)="." THEN LET d$="O"+d$ 
220 LET d$=" "+d$ 


225 REM **3%xZ*RZZZZZZZZZZZZZZEE 
230 REM * PLANSZA % 

240 CLS PLOT 0,38: DRAW 0,137 
PLOT 231,38: DRAW 0,137 

250 PRINT PAPER 6;AT 18,22;" 


"AT 18,0; Zakres :'";min; 
"- ".max;" nm” 
260 PRINT PAPER 6;AT 19,0; "wsk 


ażnik :" 

270 PRINT PAPER 5;AT 20,0;" Zm 
iana zakresu "; PAPER 7;" liczbe 
wo :'"; INVERSE 1;"z" 

280 PRINT AT 21,0;'"waskażnikiem 
:"; INVERSE 1;'m'; INVERSK ©;"' p 
rzy min i max" 

290 GO SUB 300: GO TO 330 

300 PRINT $O;AT ©Q,0;'"Dokładna d 


Ł. fali:"; INVERSE 1;"d"; INVERS 
E Q;" koniec :"; PAPER 7; INVER 
SE 1;"q" 


310 PRINT f0;'ruch wskażnika:"; 
INVERSE 1;'5,6,7,8'; INVERSE ©; 
"wolniej"; INVERSE 1;'"+CS" 
320 RETURN 
325 REM ZEZZKZĘZZERZZKEZEZEZZZZZ 
330 REM * RYSOWANIE WIDMA * 
34© FOR n=© TO 5 
350 RESTORE 1000+n"30 
360 READ a$: PRINT BRIGHT 1;AT 
33n,29;a$ 
370 LET yf=165-n'"24 
380 READ fala: IF fala>max THEN 
GO TO 380 
390 IF fala<min THEN GO TO 420 
400 LET x=(fala-min)/jed 
410 PLOT x,yf: DRAW ©,10: GO TO 
380 
420 NEXT n 
430 BEEP cz,t 


435 REM *"ZFZRZEZRZZEZEZRZZEZZAZYZZZZZ 


44Q0 REM * WSKAZNIK * 
450 LET x=115: LET xs=x: LET ys 
ay 


460 LET mm=Q 

47©Q0 PRINT PAPER Pe BRIGHT 1;AT 
19,21;d$; BRIGHT ©;' nm'* 

48Q0 LET wiecej=© 

490 LET fala=INT (mnoz*((x+0.5) 
*jed+min) ) /mnoz 

500 LET f$=STR$ fala: 
£$ 


LET 1=LEN 
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symalnej wartości długości fali, bądź na- 
ciskając klawisz „m” przy dwóch położe- 
niach wskaźnika ograniczających wymaga- 
ny zakres widma. W obu przypadkach 
deklarowany zakres nie może być mniejszy 
niż 0,25 nm. 

Ustawiając wskaźnik pod linią w widmie 
można, po naciśnięciu klawisza ,.d”, uzys- 
kać informację o dokładnej długości fali 
wskazywanej linii. Pojawienie się wykrzyk- 
nika sygnalizuje grupę kilku linii, a poda- 
wana wartość odnosi się do linii o naj- 
mniejszej długości fali. Zawężając zakres 
widma możemy rozdzielić tę grupę i obser- 
wować pojedyncze linie. 

Nasz komputerowy spektroskop dyspo- 
nuje. jak widać, unikalną właściwością 
dowolnej zmiany zdolności rozdzielczej. 
W zależności od potrzeb można obser- 
wować i porównywać widma w całości, lub 
badać szczegóły. W tym ostatnim przypad- 
ku możliwości naszego przyrządu są wręcz 
nieograniczone! 

Niestety — tylko teoretycznie. W prak- 
tyce korzystamy z katalogu widm, a więc 
otrzymamy tylko takie informacje, jakie 
zostały zebrane za pomocą istniejących 
przyrządów. I to nie wszystkie. W rzeczy- 
wistym widmie linie różnią się między sobą 
jasnością (na zdjęciach fotograficznych 
— grubością), a ponadto obraz jednych 
może być wyraźny, innych nieco rozmyty. 
Są to wszystko dodatkowe dane umożli- 
wiające wniknięcie w strukturę atomów, 
jednak, ze względu na ograniczone moż- 
liwości graficzne ZX Spectrum, trzeba było 
z nich zrezygnować. Przyjąłem najprostszą 
wersję uwzględniając tylko linie stosun- 
kowo silne. Każda z nich, niezależnie od 
jasności, przedstawiona jest w postaci kre- 
ski o szerokości jednego piksela. 

Dysponując lepszym komputerem mo- 
żna pokusić się o podzielenie linii na klasy 
wg podanej w katalogu jasności i każdą 
klasę przedstawić jako kreskę o innej gru- 
bości lub barwie. 

Wybrałem widma atomowe litowców 
gdyż są one stosunkowo proste i stanowią 
wdzięczny materiał do porównań ze wzglę- 
du na występowanie charakterystycznych 
dubletów (dwóch blisko położonych linii). 
których odległości zwiększają się ze wzro- 
stem liczby atomowej pierwiastka. Przed- 
stawione dla porównania widmo wodoru 
reprezentowane jest przez stosunkowo du- 
żą liczbę linii z serii Lymana i Balmera 
(w nadfiolecie i zakresie widzialnym) oraz 
kilka linii z serii Paschena i Bracketta 
(podczerwień). 

Zainteresowanym mechanizmem _po- 
wstawania widm polecam zabawę .,Elek- 
tron w studni” (.,Bajtek”” 4/87). 

Działanie programu tłumaczą objaśnie- 
nia zawarte w listingu, stąd tylko kilka 
informacji dodatkowych: 

Maksymalny zakres wyświetlanego wid- 
ma deklarowany jest w linii 120 — zmienne 
„od—do”. Jego przekroczenie powoduje 
komunikat o błędzie. 

Zmienna ..fala” przyjmuje albo dokład- 
ne (linie 380 i 890) albo przybliżone (linia 
490) wartości długości fal. 

Różnicę długości fal odpowiadającą jed- 
nemu  pikselowi ekranu reprezentuje 
zmienna „.jed”, a jej wartość zaokrągloną 
przyjęto jako miarę dokładności wskazań 
wskaźnika — zmienna „dok!”. 

Ze względu na możliwość wystąpienia 
obrazu linii w sąsiednich pikselach przy 
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510 PRINT BRIGHT 1;AT 19,10;" 
";AT 19,15-1/2;f$+(" ! 
" AND wiecej>1) 
520 PLOT  INVERSE 1;xs,ys: DRAW 
INVERSE 1;0,5: PLOT  INVERSE 1 
;xs+1,ys+4: PLOT  INVERSE 1;xs-1 
,ysS+4 
530 PLOT x,y: DRAW Q,5: PLOT x- 
1,y+4: PLOT x+1,y+4 
540 LET xS=x: LET ys=y 
550 IF mm=1 THEN PLOT xg,y: DR 
AW Q,5 
560 IF INKEY$="" THEN GO TO 56 
Q 
570 LET q$=INKEY$ 
580 REM *PRZESUWANIE WSKAZNIKA* 
590 REM * z=skok z 
600 LET z=10 
610 IF CODE q$>9 THEN GO TO 65 
o 
620 IF CODE q$=8 THEN LET q$=" 
g" 
630 IF CODE q$=9 THEN LET q$=" 
a" 
640 LET z=1 
650 IF q$="5" AND x>z+3 THEN L 
ET x=x-Z: 
660 IF q$="8" AND x<228-z THEN 
LET x=x+Z 
670 IF q$='6' AND y>38 THEN LE 
T y=y-24 
680 IF q$="7'" AND y<142 THEN L 
ET y=y+24 
685 REM KKKEKKZEAKAKZEKEZARAEREKEZE 
630 REM * ZMIANA ZAKRESU * 
700 REM * wskaznikiem * 
71Q0 IF q$<>'"m" THEN GO TO 800 
720 BEEP cz,t 
730 IF NOT mm THEN LET xg=x: L 
ET nmin=fala: LET mm=1: GO TO 80 


o 

74© LET max=fala 

756 IF nmin>max THEN LET pom=n 
min: LET nmin=max: LET max=pom 

76© IF max-nmin<.25 THEN GO SU 
B 950: GO TO 480 

770 IF nmincod OR max>do THEN 
GO SUB 920: GO TO 480 

786 LET min=nmin: GO TO 180 

790 REM * liczbowo * 

800 IF q$="z" THEN BEEP cz,t: 
INPUT "Zakres (nm):";nmin;" - "; 
max: GO TO 750 

810 IF q$="q'" THEN STOP 

820 IF q$<>"d" THEN GO4TO 470 

825 REM REZZZZEZAKZZERZAKZZEZEZZZZ 

830 REM * DOKLADNA DL.FALI * 

840Q0 IF NOT POINT (x,y+10) THEN 

GO SUB 960: GO TO 560 

850 LET wiecej=0: IF POINT (x+1 
,y+168) OR POINT (x-1,y+10) THEN 

LET wiecej=1 

860 LET odd=fala+jed: LET doo=f 
ala-jed 

870 RESTORE 1160-((y-38)/24)*30 

880 READ f: IF f>odd THEN GO T 
o 880 

896 IF f>doo THEN LET fala=f: 
„LET wiecej=wiecej+1: GO TO 880 

900 BEEP cz,t: PRINT ;AT 19,21; 
: FOR i=1 TO LEN d$: PRINT BRIG 
AT Łzm "za INEXTOŻ 

910 GO TO 500 

315 REM RKAKZZZAKZKEZZEZEERZERZZAZZZ 

920 REM * REAKCJA NA BLAD * 

930 RANDOMIZE USR 3438: PRINT $ 
Q;"Poza dopuszczalnym zakresem ! 


różnicy długości fal większej niż wartość 
„jed”, dla stwierdzenia obecności grupy 
linii widmowych (linie 840—910) badany 
jest zarówno obraz jak i dane z DATA 
w zakresie fala + jed. 

Program można łatwo dostosować do 
wyświetlania widm atomowych i jonowych 


940 GO TO 960 

950 RANDOMIZE USR 3438: PRINT $ 
©;'Zakres<0.25 nm "; 

960 FOR i=1 TO 5: BEEP cz,(i+5) 
*3: NEXT i 


970 PAUSE 50: GO SUB 300 

980 RETURN 

985 REM FZZZKZKZZZEKZZESEZYZZEZEZEZZEEŁZEZ 
990 REM *DLUGOSCI FAL** 

1000 DATA "H" 

1010 DATA 4051.14,2625.13,1875.1 
1,1281.81,1093.81,656.285,656.27 
3,486.133,410.174,397.007,388.90 
5,383.539,379.79,377.063,375.015 
,373.437,121.567,102.572,97.253, 
94.974,93.78,93.075,92.623,92.31 
5,92.096,91.935,91.813,91.718,91 
.643,91.582 

1020 DATA © 

1030 DATA "Li" 

1040 DATA 812.645,812.623,670.79 
1,670.776,610.365,610.354,497.17 
5,497.166,460.289,460.283,427.31 
3,427.307,413.262,413.256,398.55 
4,398.548,391.535,391.530,323.26 
6,274.12,256.231,247.506,242.543 
1050 DATA © 

1060 DATA "Na" 

1070 DATA 1140.378,1138.145,1083 
.487,1074.644,819.482,818.326,58 
9.592,588.995,568.822,568.263,45 
4.519,454.163,449.765,449.418,43 
9.334,439.003,330.298,330.237,28 
5.301,285.281,268.043,268.034 
1080 DATA Q 

1090 DATA "K" 
1100 DATA 1177.283,1176.962,1169 
.021,1102.267,1048.711,1047.963, 
959.783,959.57,890.402,890.219,8 
50.511,850.345,825.174,825.018,7 
69.896,766.49,696.467,693.628,58 
3.189,581.215,535.957,534.297,53 
3.969,532.328,511.225,509.92,509 
.717,508.423,496.503,495.615,495 
.081,494.201,486.976,486.348,485 
.609,484.986,464.237,464.188,404 
.721,404.414,344.738,344.643,310 
.204,310.179,303.492,299.222,296 
.324 
1110 DATA © 
1120 DATA "Rb" 
1130 DATA 2731.35,2293.115,2252. 
88,1366.505,1323.527,1007.61,100 
5.52,952.34,886.97,794.76,792.52 
6,780.023,775.765,629.923,615.96 
2,607.075,565.374,557.878,543.15 
3,536.26,421.556,420.185,359.159 
,358.708,335.089,334.872,322.798 
,315.753,311.305,311.257 
1140 DATA Q 
1150 DATA "Cs" 

1160 DATA 3939.8,3612.8,3490,309 
5.2,3010.2,2424.8,2334,2303.2,14 
69.493,1358.831,920.854,917.233, 
894.359,894.335,876.141,852.124, 
852.103,807.902,801.572,799.068, 
794.388,727.996,722.853,697.329, 
687.045,682.465,672.328,662.865, 
658.602,647.263,643.197,621.31,6 
01.049,584.514,459.32,455.5231,38 
8.863,388.858,387.617,387.612,36 
1.741,361.145,348.006,347.681,33 
4.749,334.744 
1170 DATA © 
9999 CLEAR : SAVE "WIDMA H-Cs" L 
INE 10 


innych pierwiastków zmieniając dane 
w liniach 1000—1160, ale zachowując 
układ: linia z symbolem pierwiastka, 
jedna linia z wartościami długości fal, linia 
z cyfrą 0 oznaczającą koniec danych. 


ANDRZEJ M. GROSSMAN 








ASEMBLER — GENS 3 


Część 9 


„ Ostatni odcinek kursu asemblera prze- 
znaczamy zgodnie z zapowiedzią na do- 
kończenie opisu programu .„Mini-monito- 
ra”. W dalszym ciągu wydruków przed- 
stawione zostaną realizacje pozostałych 
zleceń monitora wraz z niezbędnymi dla ich 
realizacji podprogramami. 

Jeżeli czytelnik zamierza uruchomić pro- 
gram w całości, przypominam, że w I części 
programu występuje zmienna KOMPL, 
której należy, po dopisaniu aktualnie pu- 
blikowanych wydruków, nadać wartość 
różną od zera. Wtedy dopiero zostaną 
asemblowane zlecenia, których realizacje 
nie występowały w poprzedniej części. Po- 
dobnie jak poprzednio wydruk został po- 
dzielony na kilka funkcjonalnie odrębnych 
części, które zostaną kolejno dość szczegó- 
łowo omówione. 


Wykorzystane zmienne 
i procedury zewnętrzne 

— procedura zapisuje na taś- 
mie magnetofonowej blok 
danych. Właściwa proce- 
dura w ROM, rozpoczyna 
się o 4 bajty wcześniej (SA- 
BYTE +04C2), zostaje 
wtedy zapisany na stos, 
adres powrotu z procedury 
w przypadku naciśnięcia 
klawisza BREAK. Ponie- 
waż jest on umieszczony 
w ROM wchodzimy do 
procedury dalej. Przypomi- 
nam, że w głównej pętli 
programowej przed wyko- 
naniem jakiegokolwiek zle- 
cenia najpierw umieszczo- 
ny zostaje na stosie adres 
powrotu do programu mo- 
nitora, co gwarantuje 
w przypadku przerwania 
zlecenia powrót do głównej 
pętli. Ta sama uwaga od- 
nosi się do następnej proce- 
dury. 

LDSTAR — procedura odczytuje blok 
danych z taśmy magneto- 
fonowej. Standardowo wy- 
wołuje się _ procedurę 
LDBYTE — pod adresem 
+Ł0556. 

DECEP  — procedura zamienia liczbę 
zapisaną w znakach ASCII, 
na format zmiennoprzecin- 
kowy (5 bajtów) i umiesz- 
cza ją na stosie kalkulatora. 


SABYTI 


NUMERI — procedura sprawdza czy 
kod ASCII (podany do 
akumulatora) odpowiada 
cyfrze od zera do dziewię- 
ciu. Jeśli nie to CY=1. 

EPTOBC — procedura zdejmuje ze sto- 
su kalkulatora liczbę całko- 
witą (dwubajtową) i wpisu- 
je ją do pary rejestrów BC. 

HLHLDE — procedura mnoży zawar- 
tość pary DE przez parę 
HL, wynik w HL. Jeśli wy- 
stąpi nadmiar wskaźnik 
CyY=M 

CHADD — adres znaku dla interpreta- 
cji. zmienna systemowa 
używana przez procedury 
interpretera BASIC-a. 


Procedury wyprowadzania na ekran 


PRCHRS — procedura wyprowadza na 
ekran każdy kod większy 
lub równy kodowi spacji. 
Znaki kontrolne mające 
kody mniejsze od kodu spa- 
cji będą zastępowane zna- 
kiem kropki. 

PRCODE — jw., z tym że najstarszy bit 
kodu zostaje wyzerowany. 
Jest to przydatne, gdyż 
przeważnie w ROM ostatni 
znak wyprowadzanego tek- 
stu jest sygnalizowany 
ustawieniem tego bitu, co 
utrudniłoby przy odczycie 
zawartości pamięci popra- 
wną interpretację progra- 
mu. 

PRIPEK — wyprowadza dziesiętnie za- 
wartość jednej komórki 
o adresie podanym w HL. 

PR2PEK — wyprowadza dziesiętnie za- 
wartość dwóch komórek 
o adresie podanym w HL. 
Jest ona traktowana jako 
liczba dwubajtowa. 








PRIBIN — wyprowadza binarnie za- 
wartość rejestru € jako 
ośmioznakowy ciąg zer lub 
jedynek. Nieznaczące zera 
nie są pomijane. 

PR2BIN — wyprowadza binarnie za- 
wartość pary HL. Najpierw 
starszy bajt, następnie jed- 
na spacja i młodszy bajt. 

PDECHL — wyprowadza dziesiętnie za- 
wartość pary HL. 

PHEXHL — wyprowadza szesnastkowo 
zawartość pary HL. 


Obsługa bufora klawiatury 


TESHEX — procedura sprawdza czy 
kod znajdujący się w aku- 
mulatorze jest kodem lite- 
ry A,B,C,D,E,F. Jeśli nie 
to CY=l; 

— procedura sprawdza czy 
kod znajdujący się w aku- 
mulatorze jest kodem cyf- 
ry 0,1. Jeśli nie to CY=1. 

Wymienione procedury oraz wcześniej 
omówiona procedura NUMERI znajdują- 
ca się w ROM, są wykorzystywane w trak- 
cie wprowadzania parametrów. Dzięki te- 
mu, klawiatura po prostu nie reaguje na 
znaki niedopuszczalne dla danego typu 
parametru (decymalnego, szesnastkowego, 
binarnego). Oczywiście dla trybu AŚCII 
kontrola ta nie jest prowadzona. 

INPUTI — procedura wprowadza je- 

den parametr w dowolnym 
trybie do bufora. Na wstę- 


TESBIN 
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pie wywoływana jest proce- 

dura odczytu klawiatura 

KLAWI. 
Naciśnięcie klawisza DELETE (CY = 1) 
powoduje przerwanie procedury. Następ- 
nie sprawdza się czy nie nastąpiło naciś- 
nięcie klawisza ENTER lub .,przecinek”. 
W obu przypadkach wprowadzanie para- 
metru jest zakończone (skok do etykiety 
INPUT6). Jeśli nie, to sprawdza się czy 
naciśnięty klawisz jest jednym z klawiszy 
zmiany trybu. Jeśli tak, to oczekujemy na 
inny, ponieważ te znaki nie będą wprowa- 
dzane do bufora. Następuje teraz sekwen- 
cja kontrolnych instrukcji, którą łatwiej 
prześledzić, jeśli zobrazujemy binarnie ko- 





Procedura jest _ obszer- 


dy znaków określających tryb. Trzy naj- 4878 Lo A," niejsza, gdyż w ROM 
mniej znaczące bity tych kodów mają na- EB R JE brak odpowiedniej pro- 
stępujące wartości: d0g SL zł KL cedury interpretującej 
++ — 011 tryb szesnastkowy += RR A liczby w postaci szesnast- 
$ — 100 tryb AŚCII 4348 MNH kowej. W procedurże tej 


% — 101 tryb binarny 
6 — 110 tryb dziesiętny. 


w rejestrze HL przecho- 


* tacie U ów . 
Interpretacja parametro wywany jest adres aktu- 


Stąd widać, że pytanie o bit drugi iden- alnie interpretowanego 
tyfikuje tryb szesnastkowy, następne pyta-  PARDEC — procedura zamienia ciąg znaku, a w rejestrze BC 
nie o bit pierwszy identyfikuje tryb dziesięt- znaków ASCII w buforze aktualny wynik. Na 


na liczbę całkowitą dwu- wstępie BC jest zerowa- 
bajtową umieszczoną ne, a HL ustawiane na 
w rejestrze BC. Wykorzys- adres poprzedzający 
tano w niej znacznie ogól- pierwszy znak. Następnie 
niejszą procedurę DECEP pobierany jest do akumu- 
znajdującą się w ROM-ie. latora kolejny znak 
Procedura ta zamienia ka- i sprawdzone zostaje czy 
żdą liczbę (znajdującą się nie jest to kod ENTER. 
w zakresie) zmiennoprze- Jeśli tak, procedura koń- 
cinkową będącą ciągiem czy się. W przeciwnym 
znaków ASCII. Interpre- wypadku ' zapamiętywa- 
tuje odpowiednio również ny jest na stosie rejestr 


ny. i ostatnie pytanie o bit zerowy iden- 
tyfikuje tryb binarny. Po ustaleniu trybu, 
następuje kontrola (poza trybem ASCII) 
zgodności i jeśli jest poprawna kod zostaje 
wprowadzony do bufora, a znak odpowia- 
dający kodowi wyprowadzany na ekran 
(fragment od etykiety INPUT5). Dodat- 
kowo, jeśli wprowadzono kod przecinka, 
zostaje wywołana procedura KLAW3 wy- 
prowadzająca znak aktualnego trybu 
parametrów. 





Em CE COREL? dPai do "GB" część całkowitą, część HL, następnie zawartość 
4218 RET Go ułamkową, kropkę dzie- rejestrów BC jest wpisy- 
433 CCF siętną, znak wykładnika wana do HL. Ze względu 
da CAFE ata A sz u mantysy, jeśli podano na brak rozkazu zamiany 
OCEŃ Bpabiuzi liczbę w zapisie nauko- BC z HL najprościej wy- 
3 5h nz wym. Wymagane jest wpi- konać można taką opera- 
4408 ECCE sanie do zmiennej syste- cję używając stosu. Teraz 
4429 p mowej CHADD adresu zawartość HL jest mno- 


żona przez 16. Wykorzy- 


4445 INPUTI LD  HL.EUFOR+L1 pierwszego znaku liczby 
3328 NSŻE EZ RA i wpisanie do akumulatora stana została tu procedu- 


« 


pak ZEotzł KólrE kodu tego znaku. Jeśli po- ra HLHLDE z ROM. 
4498 CP ENTER rzedzimy ten ciąg zna- Wynik mnożenia jes 
4518 iiwozk = ków kriokń "funkcji BIN w "HL stę? U 
51 , kc cji s , . Następuje przepi- 
4538 SR" NE INPUT2 to można zinterpretować sanie wyniku do BC i od- 
53 P ) 

323 SirlWżWZrY+71> za pomocą tej procedury tworzenie pierwotnej za- 
0 ARTE ciąg znaków przedstawia- wartości HL (tzn. adresu 
PZ EEK jący liczbę w postaci binar- znaku). Jeśli w wyniku 
4680 JR GĘENFUTA nej. mnożenia został przekro- 
4628 jb PARBIN — procedura zamienia ciąg czony zakres to nastąpi 
aaa KW O AIPUT2 znaków ASCII w buforze zakończenie procedury 
28 JE | AKROTS na liczbę całkowitą dwu- z ustawionym  wskaźni- 
PB INPUT4 SU SSA bajtową umieszczaną w re- kiem CY. Jeśli wynik jest 
4558 śtryb dzies. jestrze BC. W ciągu tym poprawny kod znaku jest 
4718 BIT 8.4147+71) mogą wystąpić wyłącznie pobierany do akumula- 
OSD ECB a AO kody zera i jedynki. i tora i pomniejszany o 48, 
SD GRLL TESBTN PARHEX — procedura zmienia ciąg jeśli jest kodem cyfry 
JES2 JR  C.INPUT2 znaków ASCII w buforze i dodatkowo pomniejsza- 
4288 INPUT5 LD. GML>A na liczbę  _dwubajtową ny o 7, jeśli jest kodem 
4508 PUSH HL umieszczoną w rejestrze litery. Teraz od etykiety 
4818 RST PFRINTA - AE; cod: > 
4828 POP HL BC. W ciągu tym mogą PARHE2 liczba powsta- 
3530 POWA € wystąpić jedynie kody ła z aktualnie zamienio- 
4858 INPUT6E LD_  CHL>.ENTER > ; iewię- odu je awan: 
SEA Eazy SF cyfr od zera do dziewię nego kodu jest dodawana 
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ciu i liter od A do F. 


do aktualnego wyniku. 





PARASC — procedura wpisuje bezpo- 


średnio kod ASCII z bufo- 
ra do rejestru C. 


szamiana Param.dziesietn. 
jwynikK w BC.Jesli >65555 


+ to 


HL , BUFOR+1 


4938 PARDE1 LOD  CCHADD> „HL 
5838 LD  RZCHL> 
5818 CRLL DECFP 
5825 CALL FPTOBC 
5538 RET 
5B4D pH 
5858 ;zamiana Param.bin. ju 
5268 Lo HL, BUFOR 
5980 LB  CAl>ea 
5358 CRLL PARÓE1 
5128 RET 
5118 nnn 
5128 ;zamiana Param.szesnast. 
5158 PARHEX LD BC, 
5148 LI HL. BUFOR 
5158 PARHE1 INC HL 
5168 LOD  A.CHL> 
5170 CP_ ENTER 
5189 RET Z 
5199 
5290 PUSH HL 
5210 PUSH BC 
5228 POP HL 
5230 LO  DE,16 
5249 CALL HLHLDE 
5250 PUSH HL 
5268 POP BC 
5270 POP HL 
5280 RET © 
5308 LD  AR.CHL> 
5319 SUB *38 
5320 CP 18 
5338 JR  C.PARHE2 
5349 
5359 SUB 7 
5368 PARHE2 PUSH HL 
5379 PUSH BC 
5388 POP HL 
3730 LD Da 
LD EA 
5418 ADD HL.DE 
. 5420 PUSH HL 
5430 POP BC 
5449 POP HL 
5450 JR _PARHEL1 
5468 mmm m a a M 
5470 ;zamiana Param. ASCII 
PARASC LD  HL.BUFOR+1 
5490 B. 
5580 LD_ C.CHI 
5519 
5528 NN NM 
USTIPA — procedura realizuje pobra- 
nie i odpowiednią do typu 
parametru interpretację. 
Wywoływana jest na wstę- 
pie procedura INPUTI, 
a następnie realizowane 
w zależności od aktualnego 
trybu wywołanie odpowie- 
dniej procedury interpretu- 
jącej. Powtarza się tu ten 
sam schemat rozróżniania 
typów parametru, który 
- wystąpił w procedurze IN- 
PUTI. Rozdzielenie proce- 
su kontroli od interpretacji 
wydaje się jednak celowe, 
gdyż łatwo sobie wyobrazić 
jak nieczytelny byłby algo- 
rytm w przypadku ich połą- 
czenia. 
USTPAR — procedura pobiera i inter- 


pretuje od I do 3 parame- 
trów. Ilość parametrów na- 
leży podać do rejestru E. 
Do rejestru HL podać ad- 
res pierwszej komórki pa- 
mięci przeznaczonej na 
przechowywanie paramet- 
rów. Oczywiście ilość para- 
metrów może być większa, 
jeśli zarezerwujemy odpo- 
wiedni obszar pamięci. 
Zauważmy, że omawiane 
procedury wejścia realizują 


LISTI 


5650 USTHEX CRLL 
RET 


żwprowadz. jednego 
UST1PA R INPUT Lt 


kolejno coraz ogólniejsze 
zadania, tak że w głównej 
pętli programowej wywoły- 
wana jest jedynie raz stoją- 
ca najwyżej w hierarchii 
procedura USTPAR. Efekt 
ten nie jest przypadkowy 
i jest celem, do którego po- 
winniśmy zmierzać starając 
się programować struktu- 
ralnie. Przybliżonym mier- 
nikiem tego, w jakim stop- 
niu nam się to udało może 
być liczba instrukcji skoku 
w programie. W omawia- 
nym programie nie prze- 
kracza ona 5% ogólnej licz- 
by instrukcji, co autor uwa- 
ża za wynik zupełnie przy- 
zwoity. Ostatnią procedu- 
rą, którą omówimy przed 
opisem realizacji zleceń jest 
procedura listowania za- 
wartości pamięci. 

liczba wyprowadzanych je- 
dnorazowo komórek pa- 
mięci jest przechowywana 
w rejestrze E, adres, od któ- 
rego zawartość pamięci bę- 
dzie wyprowadzana jest 
wpisywany do rejestru BC. 
Następuje teraz kolejne wy- 
prowadzenie tego adresu 
najpierw w postaci dziesięt- 
nej, następnie w postaci 
szesnastkowej (procedury 
PR2DEC i PRSHEX). Da- 
lej jest wyprowadzana za- 
wartość komórki pamięci 
w postaci szesnastkowej 
i w postaci ASCII ze zga- 
szonym 7 bitem (procedury 
PRIHEX i PRCODE). Na 
końcu wyprowadzana jest 
dziesiętnie zawartość ko- 
mórki i zawartość dwóch 
kolejnych komórek trakto- 
wana jako liczba dwubaj- 
towa (procedury PRIPEK 
i PR2PEK). Teraz zawar- 
tość ekranu jest przesuwa- 
na o jedną linię do góry 
(procedura SCROLL) i na- 
stępuje wyprowadzenie ko- 
lejnej linii. 


Param. 


IT 2.ĆIY+"1)> 
THEX 

T 1.CIY+71)> 

1T 

NZ. USTBIN 
LL PRARASC 
PARHEX 


Tana 


Ą 


USTDEC CALL PARDEC 


RET 


USTBIN CALL PARBIN 


p 


„uProwadz. 


RET 


1,2 lub 3 


śparametrow. Ilosc Par.u E 
UST! LD HL. PARAMŁ 
USTPR1 PUSH DE 

PUSI 


H HL 


z98 BOB HE 0 
5810 POP DE 

5820 RET C 

5830 

5848 LD CHL>,C 
5850 INC HL 

5860 LO CHL>.B 
5878 INC = 

5899 JR NZ.,USTPA1 
5900 RET 

SSI8 oaz A AA 
5928 ;uydruk zawart. Pamieci 
5938 ;liczba Komorek w rej.E 
5948 LISTI1 PUSH 

5950 CRLL PRTAT 

5968 DEFB 

5970 LD BC, (PARAM1 > 
5989 PUSH BC 

5998 CALL PRZDEC 
6830 CALL PRTRAT 

62010 DEFE 26 

6620 POP BC 

6238 PUSH BC 

6048 CALL PRZHEX 
sze POP HL 

€ PUSH HL 

6070 LO A. CHL> 
60BQ CALL PRIHEX 
689G LB" "RE © 

158 RST PRINTA 
6118 POP FIL: 

6128 PUSH HL 

6130 CRLL PRCODE 
6148 POP HL 

e152 PUSH HL 

6160 CALL PR1PEK 
6178 CRLL PRTAT 

6128 DOEFB i2 

6198 POP HL 

6208 PUSH HL 

6218 CALL PRZPEK 
6220 FOP HL 

6238 INC HL 

6248 LD <PARAM12 „HL 
6258 

6268 CALL SCROLL 
6278 DE 

6238 DEC. + E 

6298 JR NZ.LIST1 
6388 RET 

G3IB rz=——==momammimia nia 


Realizacja zleceń monitora 


Przypomnijmy, że w głównej pętli pro- 
gramowej wprowadzono parametry, o ile 
wystąpiły, to zostały dodatkowo zapamię- 
tane w dwóch kompletach rejestrów kolej- 
no w HL, DE, BC i drugi raz w IX, BC, DE. 
STALA '— procedura zapełnia obszar 

pamięci od adresu w HL 
(pierwszy parametr), o dłu- 
gości w BC (drugi para- 
metr), wartością będącą 
trzecim parametrem. Uży- 
to w tym celu typowego 
„chwytu” programowego 
dla procesora Z-80. Daną 
wartość wpisuje się do ko- 
mórki o początkowym ad- 
resie, a następnie dokonuje 
się przesłania bloku (o dłu- 
gości o jeden mniejszej niż 
długość zadanego obszaru) 
pod adres większy o jeden 
od adresu początkowego. 
BLOKI  — procedura kopiuje blok pa- 
mięci od adresu w HL (pier- 
wszy parametr), pod adres 
docelowy w DE (drugi pa- 
rametr), o długości bloku 
w BC (trzeci parametr). 
Kopiowanie jest „inteligen- 
tne”, tzn. sprawdza się czy 
adres docelowy jest mniej- 
szy od źródłowego, czy też 
większy. WW pierwszym 
przypadku zostaje wyko- 
nana instrukcja LDIR (za- 
wartość pamięci jest kopio- 
wana od najniższego adre- 
su). W drugim przypadku 
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zostaje wykonana instruk- 
cja LDDR (zawartość pa- 
mięci jest kopiowana od 
najwyższego adresu w kie- 
runku niższych adresów). 
Takie postępowanie jest 
konieczne, jeśli chcemy po- 
prawnie kopiować w przy- 
padku, gdy obszar źródło- 
wy i docelowy „zachodzą 
na siebie”. 

DODAJ, ODEJM, WYNIK — procedu- 
ry nie wymagają specjalne- 
go komentarza, warto jedy- 
nie zauważyć, że w przy- 
padku wykrycia nadmiaru 
następuje powrót z proce- 
dur bez wyprowadzenia 
wyniku. O ile wynik jest 
poprawny, to zostaje wy- 
prowadzony od razu w po- 
staci szesnastkowej i dzie- 
siętnej. 

ZAMIEN — procedura wymaga jednego 
parametru. Ze względu na 
sześć możliwych kombina- 
cji zamiany parametrów, 
przyjęto ze względów prak- 
tycznych kompleksowe 
rozwiązanie problemu. 
Wprowadzony parametr 
(dowolnego typu) jest od 
razu zamieniany na wszyst- 
kie cztery możliwe typy. 
Kolejno na postać szesnast- 
kową, dziesiętną, ASCII 
i od nowej linii w postaci 


binarnej. 

6328 STALA Exx 

6320 CHL>.C 

6340 E 

6250 POP BC 

36 DEC BC 

6378 PUSH HL 

6288 POP 

6398 INC_ DE 

€ LDIR 

6418 ExR 

6428 RET 

BAJM. or m nA 

6448 BLOKI Exx 

6458 AND 

6465 PUSH HL 

6478 SB. HL.DE 

6488 POP HL 

6498 JR ©.,BLOK1 

65BB LDIR 

6518 DEC DE 

6528 PUSH DE 

65238 JR. ELOKZ 

6548 

6558 BLOKI ADD HL.EC 

6568 DEC HL 

6578 PUSH HL 

528 Ex DE , HL 

EL RDD HL.EC 

6EBB Ex DE. HL 

6618 DEC DE 

EEZB BOP: FL 

LEZA PUSH DE 

648 LDDR 

6658 BLDK2 POP HL 

6669 Exx 

6ETA RET 

EBD GETZ ZE TR 

6698 DODAJ EX% 

ETA ADC HL.DE 

EF1i8 JR HYNIE 

ErZB 

672 DDEJM ExX 

EP4B SBC HL.DE 

6/58 

ETEB WYNIK ExX 

Pra RET C 

6728 

6734 EX% 

EB PUSH HL 

£818 CALL. PHEXHL 

ESZB L ZEE 
32 


6328 REST PRINMTA 
548 POP HL 
6858 CHLL PDECHL 
6B6B ExK 

6878 RET 

BBB jm NN 
6898 ZAMIEM EXX 

ES SH HL 
6S1B CALL PHEXHL 
ESZB FPOF HL 
SSŻU PUSH HL 
348 LD AM 
6358 FEST PRINTA 
EEG POP 

ESPA PLISH 

6328 CALL PDECHL 
ESS D BA W 
FBBA EST PRINTA 
7B1B POP HL 
TBZA PSH HL 
FAZA LO 

PB4B DRLL PRCHR£ 
FBSB LD KAC 
TBEA EST PRINTA 
FAA POP HL 
7BBA PUSH HL 
FBSŃ CALL SCFOLL 
FiLBB CALL PRT 
FiiB DEFE 32 
7128 POP HL 
7138 CALL PRZEIM 
148 ER% 

7158 RET 
EEN 


Zanim przejdziemy do opisu zleceń od- 
czytu i zapisu na taśmie magnetofonowej 
przypomnijmy kilka podstawowych fak- 
tów. Procedury zapisu i odczytu umiesz- 
czone w ROM rozróżniają dwa typy blo- 
ków: 

Blok danych: (o dowolnej długości) i 
Blok nagłówka (poprzedza on blok właś- 
ciwych danych) składający się z 17 bajtów 
mających następujące znaczenie: 

Tabela 1 


Nazwa danych (dziesięć znaków 
ASCH)| «| — 


znaczący i bardziej znaczący 


- bajt adresu początkowego ładowa- 
NGGĘSACA ZĘ 


14—15 Dla programów w BASIC-u numer 
_ linii, od której program uruchamia 
się kona. z 

















16—17 Długość bloku danych (mniej zna- 
czący i bardziej znaczący bajt) 





Fizycznie na taśmie dodatkowo są zapisy- 
wane jeden bajt przed blokiem równy 0 dla 
bloku nagłówka i 255 dla bloku danych. 
oraz po bloku jeden bajt kontroli parzysto- 
ści. Standardowe procedury zapisu i od- 
czytu 4:04C2 oraz 40556 wymagają na- 
stępujących parametrów: 

Tabela 2 


Rejestr SAVE " LOAD 


IX Adres 
początku — „ — 
DE Długość —,„= 
— dla 
nagłówka 


255 — dla 
danych 


VERIFY 


ustawiony  wyzero- 
wany 





Widać stąd, że można zapisać blok typu 
nagłówka o długości większej niż 17 baj- 
tów. Np. popularny program COPY-CO- 
PY nie potrafi skopiować takich bloków. 
Zrealizowana w monitorze procedura OD- 
CZYT wczytuje dowolny blok. Jedynym 
parametrem wymaganym jest adres w pa- 
mięci, od którego począwszy blok ma być 
ładowany. Jeśli odczyt przebiegł prawidło- 
wo jest wyprowadzany na ekran adres 
ostatniego wczytanego bajtu. Jakiego typu 
blok został wczytany możemy dowiedzieć 
się sprawdzając zawartość komórki pamię- 
ci o adresie o jeden mniejszym od adresu 
ładowania. 


ZAPIS — procedura wymaga trzech 
parametrów: adresu począ- 
tkowego, długości bloku, 
i typu bloku. W ostatnim 
parametrze należy podać 0, 
jeśli chcemy zapisać blok 
nagłówka, lub 255, jeśli 
chcemy zapisać blok da- 
nych. 

PAMIEC — procedura wyprowadza za- 
wartość 16 kolejnych ko- 
mórek pamięci wraz z ad- 
resami w formacie opisa- 
nym w procedurze LIST1. 
Jedynym argumentem jest 
adres początkowy. Naciś- 
nięcie klawisza DELETE 
powoduje powrót do głów- 
nej pętli programowej. Mo- 
dyfikacja zawartości pa- 
mięci jest możliwa po naciś- 
nięciu klawisza  „A”. 
W tym podzleceniu po każ- 
dym wpisie automatycznie 
jest zwiększany aktualny 
adres i nowa zawartość pa- 
mięci listowana w pełnej 
postaci. 





PITA ODCZYT DEC IX 

F1S8 LD DE, *FFFF 

7198 LD C, *OE 

ZB SCF 

7218 * AF. RF” 
LDSTAR 

ć E 

re HL. *FFFD 

© L.DE 

c2e PDECHL 

"23 

FTZAB mmm nnn nnn nam m m 

721 A. CPARAM2> 

732 SABErT1 

336 E 

248 RET HC 

7358 

368 PUSH IX 

378 POP HL 

288 DEC HL 

7298 DEC HL 

PĄ4BA CALL PDECHL 

335 RET 

PĄŻĄ jn NN MM 

7438 PAMIEC LD <PARAHMZ> BC 

"448 D E. 

7458 CRLL LIST1 

7468 CALL SCROLL 

r4r8 CALL ELRN1 

7488 RET £ 

438 

568 CP "q" 

518 IR Z. WPIS 

528 JR: PRMIEC 

PSZ 

7548 WPIE CRLL PRTAT 

F55A DEFE 232 

558 LD HL.. CFARAM2 2 








MONITOR 
KOMPUTEROWY 


W ostatnich latach pojawiają się coraz nowo- 
cześniejsze rozwiązania ekranów służących do 
wyświetlania informacji, od wyświetlaczy ciek- 
łokrystalicznych aż po kolorowe ekrany plazmo- 
we. Jeżeli jednak racjonalnie przyjrzymy się sta- 
tystyce występowania poszczególnych rozwiązań 
to musimy przyżnać, że zdecydowane pierwszeń- 
stwo przypada tutaj poczciwej staruszce-lampie 
kineskopowej. Dowcipni twierdzą, że jest to 
jedyna lampa, która opiera się jak na razie erze 
mikroprocesorów. Mimo że lampa ta posiada już 
sędziwy wiek, potrafiła tak zmienić swe oblicze, 
że jej pozycja nadal wydaje się niezagrożona. 

Weźmy dla przykładu zdawałoby się tak pro- 
sty jej element jak szyba ekranu. Z uwagi na 
obciążenia jakim podlega, zgniatana siłą co naj- 
mniej kilkuset kilogramów przez ciśnienie ota- 
czającego powietrza, oraz z uwagi na minimaliza-_ 
cję zniekształceń geometrii obrazu wewnętrzna 
jej powierzchnia musi mieć kształt zbliżony do 
sferycznego. Mimo tego można uzyskać idealnie 
płaską powierzchnię ekranu. Niestety nie wystar- 
czy tutaj wykonanie ekranu w postaci soczewki 
płasko-wypukłej, gdyż dałoby to zupełnie prze- 
ciwny efekt, dodając nowe zniekształcenia geo- 
metrii oglądanego obrazu. Aby uzyskać płaski 
ekran, powierzchnię czołową ekranu wykonuje 
się spiekając ze sobą miliony włókien światło- 
wodowych. Tak przygotowany blok tnie się na 
tafle, a następnie nadaje im odpowiedni kształt. 
Taka szyba ma dziwne właściwości. Oglądana 
wydaje się być matowa, jednak gdy przyłożymy 
do jej wklęsłej strony dokładnie jakiś obraz, to 
zostanie on przeniesiony na jej drugą stronę w ten 
sposób, że obserwatorowi wydaje się, iż jest on 
położony na jej płaskiej powierzchni. Taka szyba 
pozwala nie tylko uczynić ekran kineskopu płas- 
kim, ale także całkowicie eliminuje błąd paralak- 
sy powstający np. przy próbie zmierzenia odcin- 
ka na ekranie „normalnego” kineskopu. Dodat- 
kowo poprawia się znacznie kontrast oglądanych 
obrażów, gdyż nie występuje efekt podświetlania 
luminoforu poprzez światło odbite od powierz- 
chni czołowej szyby przedniej. Mimo że opis idei 
tego rozwiązania wydaje się prosty, trudności 
technologiczne napotykane przy realizacji tego 
pomysłu są tak znaczne, że jak dotąd stosuje się je 
tylko w złożonych monitorach o bardzo dużej 
rozdzielczości. 

Innym rozwiązaniem wprowadzanym w ostat- 
nich latach jest dynamiczna korekcja ogniskowa- 
nia strumienia elektronów. Jeżeli przyjrzymy się 
ekranowi zwykłego telewizora, to zauważymy, że 
linie na brzegach ekranu są gorzej zogniskowane 
niż w jego centrum. Ktoś kto próbował kiedykol- 
wiek regulować ogniskowanie linii wie, że nigdy 
nie udaje się uzyskać zadowalającego zognis- 
kowania w centrum ekranu i na jego brzegach. 
W przypadku zwykłych odbiorników telewizyj- 





Uwagi końcowe 


Przedstawiony powyżej program zajmu- 
je 1128 bajtów. Wymagany obszar Tablicy 
Symboli wynosi 1394 bajty, a cały program 
źródłowy liczy 10555 bajtów. Ten nieco 
nużący opis (i przydługawy) konkretnego 
programu wydaje się jednak konieczny, 
jeśli czytelnik zamierza naprawdę zrozu- 
mieć o co właściwie chodzi. Oczywiście 
jedynym prawdziwym sprawdzianem 


nych nie ma to istotnego znaczenia, jednak 
w przypadku monitorów komputerowych, 
w których grubość kreślonej linii dochodzi do 
0,2 mm występuje wyraźne pogorszenie jakości 
obrazu na brzegach ekranu. Aby temu zapobiec, 
podaje się na elektrodę ogniskującą kineskopu 
napięcie zależne od miejsca, w jakim aktualnie 
pada na ekran strumień elektronów. Dzięki temu 
uzyskuje się optymalne ogniskowanie strumienia 
w każdym punkcie ekranu. 

W zależności od przeznaczenia monitora do- 
biera się odpowiedni luminator lampy kinesko- 
powej. W przypadku przetwarzania tekstów naj- 
częściej stosuje się luminofor o barwie bursz- 
tynowej. Ten typ luminoforu cechuje stosun- 
kowo długi czas poświaty eliminujący migotanie 
obrazu powodujące u niektórych osób męczenie 
się wzroku. Nie nadaje się on jednak do wyświet- 
lania ruchomych obrazów animowanych przez 
komputer, gdyż za poruszającymi się obiektami 
pozostają smugi psujące czytelność obrazu. Cza- 
sami jest to nieco męczące nawet w czasie prze- 
twarzania tekstów, gdyż przesuwający się szybko 
tekst staje się nieczytelny. Ten typ luminoforu 
posiada dosyć niską żywotność i dłuższe pozos- 
tawienie na ekranie jakiegoś obrazu powoduje 
stosunkowo szybkie „wypalenie” luminoforu 
w jasnych jego miejscach, jednak z uwagi na niską 
cenę kineskopów (na świecie) ta wada nie ma 
istotnego znaczenia. 

Monitor o zielonym kolorze świecenia jest 
również bardzo popularny. Jest on dobrze do- 
stosowany do charakterystyki czułości widmowej 
oka i jego zastosowanie jest uniwersalne. Lumi- 
nofor ten charakteryzuje się dużą żywotnością, 
co jest związane z jego dobrą wydajnością świetl- 
ną (pracuje z małymi prądami strumienia elektro- 
nów, co wpływa również na długowieczność 
katody), niektóre osoby nuży jednak zauważane 
przez nie migotanie ekranu, co jest z kolei 
związane z raczej krótkimi czasami poświaty tego 
typu luminoforów. Luminofory o białej barwie 
świecenia mają czas poświaty zbliżony do lumi- 
noforów zielonych, ich trwałość jest gorsza od 
trwałości luminoforów zielonych, jednak znacz- 
nie lepsza od trwałości luminoforów bursztyno- 
wych. Rzadko są one stosowane w monitorach 
komputerowych samodzielnie, częściej występu- 
ją uzupełnione filtrem kolorowym „„udając” mo- 
nitory bursztynowe. Rozwiązanie to pozwala 
uniknąć niedogodności związanych z długim cza- 
sem poświaty monitorów bursztynowych, jednak 
przywraca efekt migotania oglądanego obrazu. 
Zastosowanie filtru poprawia jednak kontrast 
oglądanego obrazu — szczególnie w warunkach 
niekorzystnego oświetlenia zewnętrznego. 

Monitory kolorowe dają bardzo efektowne 
zobrazowanie. Są one bardzo dobre w przypadku 
stosowania ich jako środków reklamowych lub 
jako terminali do niektórych dziedzin wspoma- 


gania komputerowego. Z uwagi na niewielką. 


zazwyczaj rozdzielczość nie nadają się one do 
przetwarzania tekstów, gdyż powodują bardzo 
szybkie męczenie się wzroku. Należy zwrócić 
uwagę, że stosowane w tych monitorach lumino- 


umiejętności będzie napisanie własnego 
programu. Jednakże w przypadku asemb- 
lera, opanowanie jedynie listy rozkazowej 
procesora jest drogą prowadzącą donikąd. 
Stąd autorowi wydało się celowe przed- 
stawienie większego przykładu ilustrujące- 
go typowe techniki programowania. Jeżeli 
uważny czytelnik dokona modyfikacji pro- 


'gramu i po pewnym czasie niewiele zo- 


stanie z oryginału autor będzie w pełni 
usatysfakcjonowany. Praktyka bowiem 
pokazuje, że w przypadku języka maszyno- 
wego najtrudniej zacząć pisać... a jeszcze 
trudniej pisać tak, żeby po jakimś czasie 
zrozumieć siebie samego. 


TADEUSZ BASISTA 


fory (czerwony, zielony i niebieski) często posia- 
dają inne charakterystyki spektralne niż lumino- 
fory stosowane w odbiornikach telewizji koloro- 
wej, stąd stosowanie ich do współpracy z mag- 
netowidami daje często zaskakujące efekty kolo- 
rystyczne. Wiele typów monitorów kolorowych 
posiada przełączniki pozwalające ustawić je 
w tryb pracy monochromatycznej, dając bursz- 
tynowy lub zielony kolor zobrazowania, nie 
poprawia to jednak ich rozdzielczości i prowa- 
dzenie przy ich użyciu obróbki tekstów jest 
bardzo męczące. Długowieczność lamp kinesko- 
powych stosowanych w tych monitorach jest 
porównywalna ; z długowiecznością lamp o białej 
barwie świecenia ekranu. 

Osobnego omówienia wymaga kwestia szkod- 
liwego promieniowania emitowanego przez mo- 
nitory. Producenci różnorodnych „ekranów 
ochronnych” przedstawiają je w swych ulotkach 
reklamowych często w kategoriach wręcz metafi- 
zycznych — kopiując zagraniczne rozwiązania 
często nie mają pojęcia o zasadach ich funk- 
cjonowania. Prawda, jak zwykle bywa, nie jest 
jednak aż tak zagadkowa. Otóż w kineskopach 
kolorowych z uwagi na stosowanie różnorod- 
nych masek pochłaniających znaczną część ener- 
gii strumieni elektronowych, muszą dla uzys- 
kania zadowalającej jaskrawości i rozdzielczości 
być stosowane wysokie napięcia anodowe. Na- 
pięcia te dochodzą do 30 kV. Elektrony hamowa- 
ne na maskownicy i ekranie, część swej energii 
zamieniają wtedy na miękkie promieniowanie 
rentgenowskie. Promieniowanie to jest częściowo 
pochłaniane w szybie zewnętrznej wykonanej ze 
szkła ołowiowego, nie jest go jednak w stanie 
osłabić cienka siateczka z tworzywa sztucznego, 
nałożona na ekran. Występuje również inne 
zjawisko, ekrany monitorów kolorowych ulegają 
silnemu elektryzowaniu się, co powoduje, że 
część pyłków zawartych w powietrzu „odbija” się 
od nich i odskakuje z dużą prędkością; podobno 
przy zachowaniu zbyt małej odległości od ekranu 
pyłki te uderzają w oczy operatora, powodując 
szybkie męczenie się wzroku — tutaj siateczki 
dają pewną ochronę. 

W monitorach czarno-białych, gdzie napięcia 
przyspieszające nie przekraczają zwykle 20 kV 
oba poprzednio opisane efekty nie występują 
(aby hamowany elektron mógł wypromieniować 
kwant promieniowania rentgena musi mieć do- 
starczoną energię). Siatka zastosowana jednak 
w dowolnym typie monitora poprawia kontrast 
uzyskiwanego obrazu. Mechanizm jej działania 
jest następujący: światło zewnętrzne przechodzi 
przez siatkę, odbija się od powierzchni luminofo- 
ru i przechodzi przez siatkę na zewnątrz — jest 
więc dwukrotnie tłumione przez siatkę, nato- 
miast świecenie ekranu jest tłumione tylko pod- 

czas pojedynczego przechodzenia przez siatkę, co 
daje w efekcie poprawę kontrastu, jednakże 
okupioną zmniejszeniem jasności świecenia ek- 
ranu. Siatka nadaje też ekranowi specyficzną 
matową fakturę poprawiającą zobrazowanie 
znaków. 

Piotr Postawka 


SCHEMAT BUDOWY MONITORA: 1 — działo elektronowe, 2 — wzmacniacz 
wizji, 3 — elektronika sterująca, 4 — cewki odchylania, 5 — uchwyt 
mocujący, 6 — anoda przyspieszająca, 7 — luminofor, 8 — maskownica, 
9 — szyba przednia, 10 — filtr kolorowy, 11 — strumień elektronów, 


12 — kontakt anody, 13 — miejsce na przewód zasilania, 14 — uchwyt 
transportowy 
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